make_constr_itbls: 64-bit fix (size of info table was hardcoded)
--putStrLn ("# ptrs of itbl is " ++ show ptrs)
--putStrLn ("# nptrs of itbl is " ++ show nptrs_really)
poke addr itbl
--putStrLn ("# ptrs of itbl is " ++ show ptrs)
--putStrLn ("# nptrs of itbl is " ++ show nptrs_really)
poke addr itbl
- return (getName dcon, addr `plusPtr` 8)
+ return (getName dcon, addr `plusPtr` (2 * wORD_SIZE))
-- Make code which causes a jump to the given address. This is the
-- Make code which causes a jump to the given address. This is the