[project @ 2000-09-12 10:15:09 by sewardj]

Get rid of version number in the .hi-boot file, and wrap the entire
contents of StgInterp with #ifdef GHCI, so it isn't built unless you
want it to be.

diff --git a/ghc/compiler/stgSyn/MCI_make_constr.hi-boot b/ghc/compiler/stgSyn/MCI_make_constr.hi-boot
index fc22ad5..06a8ca3 100644 (file)
--- a/ghc/compiler/stgSyn/MCI_make_constr.hi-boot
+++ b/ghc/compiler/stgSyn/MCI_make_constr.hi-boot
@@ -1,4 +1,4 @@
-__interface MCIzumakezuconstr 1 409 where
+__interface MCIzumakezuconstr 1 where
 __export MCIzumakezuconstr 
    mcizumakezuconstrI
    mcizumakezuconstr

diff --git a/ghc/compiler/stgSyn/StgInterp.lhs b/ghc/compiler/stgSyn/StgInterp.lhs
index fb9893e..7963c2c 100644 (file)
--- a/ghc/compiler/stgSyn/StgInterp.lhs
+++ b/ghc/compiler/stgSyn/StgInterp.lhs
@@ -36,9 +36,17 @@ import Addr          -- again ...
 import Word
 import Bits
 
+
+runStgI :: [TyCon] -> [Class] -> [StgBinding] -> IO Int
+
+#ifndef GHCI
+runStgI tycons classes stgbinds
+   = panic "runStgI called in non-GHCI build"
+
+#else
+
 -- the bindings need to have a binding for stgMain, and the
 -- body of it had better represent something of type Int# -> Int#
-runStgI :: [TyCon] -> [Class] -> [StgBinding] -> IO Int
 runStgI tycons classes stgbinds
    = do itbl_env <- mkITbls (tycons ++ map classTyCon classes)
         let binds = concatMap (stg2bind itbl_env) stgbinds
@@ -1023,6 +1031,7 @@ load :: Storable a => Addr -> IO (Addr, a)
 load addr = do x <- peek addr
                return (addr `plusAddr` fromIntegral (sizeOf x), x)
 
+#endif /* ndef GHCI */
 
 \end{code}