[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 c44e562..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 ]
-                (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
@@ -223,6 +223,7 @@ vecret_entry 5 = stg_interp_constr6_entry
 vecret_entry 6 = stg_interp_constr7_entry
 vecret_entry 7 = stg_interp_constr8_entry
 
+#ifndef __HADDOCK__
 -- entry point for direct returns for created constr itbls
 foreign label "stg_interp_constr_entry" stg_interp_constr_entry :: Ptr ()
 -- and the 8 vectored ones
@@ -234,7 +235,7 @@ foreign label "stg_interp_constr5_entry" stg_interp_constr5_entry :: Ptr ()
 foreign label "stg_interp_constr6_entry" stg_interp_constr6_entry :: Ptr ()
 foreign label "stg_interp_constr7_entry" stg_interp_constr7_entry :: Ptr ()
 foreign label "stg_interp_constr8_entry" stg_interp_constr8_entry :: Ptr ()
-
+#endif