projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2005-04-23 09:56:06 by panne]
[ghc-hetmet.git]
/
ghc
/
compiler
/
ghci
/
ByteCodeItbls.lhs
diff --git
a/ghc/compiler/ghci/ByteCodeItbls.lhs
b/ghc/compiler/ghci/ByteCodeItbls.lhs
index
c425903
..
3598247
100644
(file)
--- a/
ghc/compiler/ghci/ByteCodeItbls.lhs
+++ b/
ghc/compiler/ghci/ByteCodeItbls.lhs
@@
-89,7
+89,7
@@
make_constr_itbls cons
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