From: simonmar <unknown>
Date: Sat, 23 Apr 2005 22:02:31 +0000 (+0000)
Subject: [project @ 2005-04-23 22:02:31 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~684
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5698fe5f9964c29dc5e64a14087c4f38d7daf227;p=ghc-hetmet.git

[project @ 2005-04-23 22:02:31 by simonmar]
Fix comment
---

diff --git a/ghc/compiler/ghci/ByteCodeItbls.lhs b/ghc/compiler/ghci/ByteCodeItbls.lhs
index 3598247..681a462 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 False {- TODO: WILD GUESS!!! -} rep_args
+		 (tot_wds, ptr_wds, _) = mkVirtHeapOffsets False{-not a THUNK-} rep_args
 
                  ptrs  = ptr_wds
                  nptrs = tot_wds - ptr_wds