[project @ 2000-12-15 17:38:45 by sewardj]

temp hack to make contents disappear

diff --git a/ghc/compiler/ghci/StgInterp.lhs b/ghc/compiler/ghci/StgInterp.lhs
index ca48587..8428814 100644 (file)
--- a/ghc/compiler/ghci/StgInterp.lhs
+++ b/ghc/compiler/ghci/StgInterp.lhs
@@ -48,6 +48,8 @@ module StgInterp (
 
 #include "HsVersions.h"
 
 
 #include "HsVersions.h"
 

+
+

 import Linker
 import Id              ( Id, idPrimRep )
 import Outputable
 import Linker
 import Id              ( Id, idPrimRep )
 import Outputable

@@ -65,7 +67,7 @@ import Util
 import UniqFM
 import UniqSet
 
 import UniqFM
 import UniqSet
 

-import {-# SOURCE #-} MCI_make_constr
+--import {-# SOURCE #-} MCI_make_constr

 
 import FastString
 import GlaExts         ( Int(..) )
 
 import FastString
 import GlaExts         ( Int(..) )

@@ -94,6 +96,26 @@ import PrelGHC               --( unsafeCoerce#, dataToTag#,
 import PrelAddr        ( Addr(..) )
 import PrelFloat       ( Float(..), Double(..) )
 
 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
 -- ---------------------------------------------------------------------------
 -- ---------------------------------------------------------------------------
 -- Environments needed by the linker
 -- ---------------------------------------------------------------------------

@@ -180,8 +202,6 @@ conapp2expr ie dcon args
              in
                  rearranged
 
              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
 -- 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 ()
 -----------------------------------------------------------------------------q
 
 foreign import "strncpy" strncpy :: Ptr a -> ByteArray# -> CInt -> IO ()

+#endif
+

 \end{code}
 
 \end{code}