projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
169b487
)
[project @ 2000-09-13 09:54:27 by sewardj]
author
sewardj
<unknown>
Wed, 13 Sep 2000 09:54:27 +0000
(09:54 +0000)
committer
sewardj
<unknown>
Wed, 13 Sep 2000 09:54:27 +0000
(09:54 +0000)
Only import MCI_make_constr if building GHCI.
ghc/compiler/stgSyn/StgInterp.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/stgSyn/StgInterp.lhs
b/ghc/compiler/stgSyn/StgInterp.lhs
index
7963c2c
..
f1a1554
100644
(file)
--- a/
ghc/compiler/stgSyn/StgInterp.lhs
+++ b/
ghc/compiler/stgSyn/StgInterp.lhs
@@
-23,8
+23,10
@@
import TyCon ( TyCon, isDataTyCon, tyConFamilySize, tyConDataCons )
import ClosureInfo ( mkVirtHeapOffsets )
import Class ( Class, classTyCon )
+#ifdef GHCI
-- giga-hack
import {-# SOURCE #-} MCI_make_constr
+#endif
import PrelGHC --( unsafeCoerce#, dataToTag#,
-- indexPtrOffClosure#, indexWordOffClosure# )