Commit 670b00ee authored by simonmar's avatar simonmar
Browse files

[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.
parent e1f4b5f4
...@@ -26,7 +26,6 @@ import Class ( Class, classTyCon ) ...@@ -26,7 +26,6 @@ import Class ( Class, classTyCon )
#ifdef GHCI #ifdef GHCI
-- giga-hack -- giga-hack
import {-# SOURCE #-} MCI_make_constr import {-# SOURCE #-} MCI_make_constr
#endif
import PrelGHC --( unsafeCoerce#, dataToTag#, import PrelGHC --( unsafeCoerce#, dataToTag#,
-- indexPtrOffClosure#, indexWordOffClosure# ) -- indexPtrOffClosure#, indexWordOffClosure# )
...@@ -37,6 +36,7 @@ import Storable ...@@ -37,6 +36,7 @@ import Storable
import Addr -- again ... import Addr -- again ...
import Word import Word
import Bits import Bits
#endif
runStgI :: [TyCon] -> [Class] -> [StgBinding] -> IO Int runStgI :: [TyCon] -> [Class] -> [StgBinding] -> IO Int
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment