From be81c56889e79f6137e69f103ba81c1b113961f2 Mon Sep 17 00:00:00 2001 From: sewardj Date: Wed, 13 Sep 2000 09:54:27 +0000 Subject: [PATCH] [project @ 2000-09-13 09:54:27 by sewardj] Only import MCI_make_constr if building GHCI. --- ghc/compiler/stgSyn/StgInterp.lhs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/ghc/compiler/stgSyn/StgInterp.lhs b/ghc/compiler/stgSyn/StgInterp.lhs index 7963c2c..f1a1554 100644 --- 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# ) -- 1.7.10.4