From: simonmar <unknown>
Date: Thu, 14 Sep 2000 09:10:35 +0000 (+0000)
Subject: [project @ 2000-09-14 09:10:35 by simonmar]
X-Git-Tag: Approximately_9120_patches~3749
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=670b00ee40aee7d0fb130819469c320cfc494c5c;p=ghc-hetmet.git

[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
--- 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