X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fghci%2FByteCodeItbls.lhs;h=35982477275e0776be028b45338a323fb127d8b7;hb=b591f92e3882a4409d1f4417ff94bbdb4f204584;hp=c4259036a44a2a923fd104c097d1a3e47950d6e5;hpb=d086e76c37432e9be70a83592dc87ead850c02e0;p=ghc-hetmet.git

diff --git a/ghc/compiler/ghci/ByteCodeItbls.lhs b/ghc/compiler/ghci/ByteCodeItbls.lhs
index c425903..3598247 100644
--- 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 ]
-		 (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