[project @ 2000-09-14 09:10:35 by simonmar]

extend the scope of #ifdef GHCI so we can compile this with pre-4.08 compilers.

diff --git a/ghc/compiler/stgSyn/StgInterp.lhs b/ghc/compiler/stgSyn/StgInterp.lhs
index f1a1554..0e68c10 100644 (file)
--- a/ghc/compiler/stgSyn/StgInterp.lhs
+++ b/ghc/compiler/stgSyn/StgInterp.lhs
@@ -26,7 +26,6 @@ import Class          ( Class, classTyCon )
 #ifdef GHCI
 -- giga-hack
 import {-# SOURCE #-} MCI_make_constr
-#endif
 
 import PrelGHC         --( unsafeCoerce#, dataToTag#,
                        --  indexPtrOffClosure#, indexWordOffClosure# )
@@ -37,6 +36,7 @@ import Storable
 import Addr            -- again ...
 import Word
 import Bits
+#endif
 
 
 runStgI :: [TyCon] -> [Class] -> [StgBinding] -> IO Int