summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
d086e76)
ATTENTION: Make it compile again, but only via a wild and probably
wrong guess which might break GHCi. SimonM, please have a look at
this. (Who broke it should fix it! :-)
mk_itbl dcon conNo entry_addr
= let rep_args = [ (typeCgRep arg,arg)
| arg <- dataConRepArgTys dcon ]
mk_itbl dcon conNo entry_addr
= let rep_args = [ (typeCgRep arg,arg)
| arg <- dataConRepArgTys dcon ]
- (tot_wds, ptr_wds, _) = mkVirtHeapOffsets rep_args
+ (tot_wds, ptr_wds, _) = mkVirtHeapOffsets False {- TODO: WILD GUESS!!! -} rep_args
ptrs = ptr_wds
nptrs = tot_wds - ptr_wds
ptrs = ptr_wds
nptrs = tot_wds - ptr_wds