- -- Make a piece of code to jump to "entry_label".
- -- This is the only arch-dependent bit.
- code = mkJumpToAddr entry_addr
- in
- do addr <- newExec [itbl]
+ qNameCString <- newCString $ dataConIdentity dcon
+ let conInfoTbl = StgConInfoTable {
+ conDesc = qNameCString,
+ infoTable = itbl
+ }
+ -- Make a piece of code to jump to "entry_label".
+ -- This is the only arch-dependent bit.
+ -- addr <- newExec [itbl]
+ addrCon <- newExec [conInfoTbl]
+ let addr = (castFunPtrToPtr addrCon) `plusPtr` 4 -- ToDo: remove magic number