From f05dbea1695542772dc917f33d24525c05a8e09d Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Fri, 15 Dec 2000 17:38:45 +0000
Subject: [PATCH] [project @ 2000-12-15 17:38:45 by sewardj] temp hack to make
 contents disappear

---
 ghc/compiler/ghci/StgInterp.lhs |   28 +++++++++++++++++++++++++---
 1 file changed, 25 insertions(+), 3 deletions(-)

diff --git a/ghc/compiler/ghci/StgInterp.lhs b/ghc/compiler/ghci/StgInterp.lhs
index ca48587..8428814 100644
--- a/ghc/compiler/ghci/StgInterp.lhs
+++ b/ghc/compiler/ghci/StgInterp.lhs
@@ -48,6 +48,8 @@ module StgInterp (
 
 #include "HsVersions.h"
 
+
+
 import Linker
 import Id 		( Id, idPrimRep )
 import Outputable
@@ -65,7 +67,7 @@ import Util
 import UniqFM
 import UniqSet
 
-import {-# SOURCE #-} MCI_make_constr
+--import {-# SOURCE #-} MCI_make_constr
 
 import FastString
 import GlaExts		( Int(..) )
@@ -94,6 +96,26 @@ import PrelGHC		--( unsafeCoerce#, dataToTag#,
 import PrelAddr 	( Addr(..) )
 import PrelFloat	( Float(..), Double(..) )
 
+
+#if 1
+interp = panic "interp"
+stgExprToInterpSyn = panic "stgExprToInterpSyn"
+stgBindsToInterpSyn = panic "stgBindsToInterpSyn"
+iExprToHValue = panic "iExprToHValue"
+linkIModules = panic "linkIModules"
+filterNameMap = panic "filterNameMap"
+type ItblEnv    = FiniteMap Name (Ptr StgInfoTable)
+type ClosureEnv = FiniteMap Name HValue
+data StgInfoTable = StgInfoTable {
+   ptrs :: Word16,
+   nptrs :: Word16,
+   srtlen :: Word16,
+   tipe :: Word16,
+   code0, code1, code2, code3, code4, code5, code6, code7 :: Word8
+}
+
+#else
+
 -- ---------------------------------------------------------------------------
 -- Environments needed by the linker
 -- ---------------------------------------------------------------------------
@@ -180,8 +202,6 @@ conapp2expr ie dcon args
              in
                  rearranged
 
-foreign label "PrelBase_Izh_con_info" prelbase_Izh_con_info :: Addr
-
 -- Handle most common cases specially; do the rest with a generic
 -- mechanism (deferred till later :)
 mkConApp :: Name -> [Rep] -> [UnlinkedIExpr] -> UnlinkedIExpr
@@ -1399,5 +1419,7 @@ load addr = do x <- peek addr
 -----------------------------------------------------------------------------q
 
 foreign import "strncpy" strncpy :: Ptr a -> ByteArray# -> CInt -> IO ()
+#endif
+
 \end{code}
 
-- 
1.7.10.4