From b591f92e3882a4409d1f4417ff94bbdb4f204584 Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Sat, 23 Apr 2005 09:56:06 +0000
Subject: [PATCH] [project @ 2005-04-23 09:56:06 by panne] 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! :-)

---
 ghc/compiler/ghci/ByteCodeItbls.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
1.7.10.4