From 2b4a8ed583f3c84d74ea1334cf99c8fc2844aaeb Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Tue, 12 Sep 2000 10:15:09 +0000
Subject: [PATCH] [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.

---
 ghc/compiler/stgSyn/MCI_make_constr.hi-boot |    2 +-
 ghc/compiler/stgSyn/StgInterp.lhs           |   11 ++++++++++-
 2 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/ghc/compiler/stgSyn/MCI_make_constr.hi-boot b/ghc/compiler/stgSyn/MCI_make_constr.hi-boot
index fc22ad5..06a8ca3 100644
--- 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
--- 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}
 
-- 
1.7.10.4