[project @ 1997-10-19 21:48:43 by sof]

[ghc-hetmet.git] / ghc / compiler / codeGen / CgLetNoEscape.lhs

diff --git a/ghc/compiler/codeGen/CgLetNoEscape.lhs b/ghc/compiler/codeGen/CgLetNoEscape.lhs
index 3748ddd..935b441 100644 (file)
--- a/ghc/compiler/codeGen/CgLetNoEscape.lhs
+++ b/ghc/compiler/codeGen/CgLetNoEscape.lhs
@@ -13,14 +13,19 @@
 module CgLetNoEscape ( cgLetNoEscapeClosure ) where
 
 IMP_Ubiq(){-uitious-}
+#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 201
 IMPORT_DELOOPER(CgLoop2)               ( cgExpr )
+#else
+import {-# SOURCE #-} CgExpr ( cgExpr )
+#endif
 
 import StgSyn
 import CgMonad
 import AbsCSyn
 
 import CgBindery       ( letNoEscapeIdInfo, bindArgsToRegs,
-                         bindNewToAStack, bindNewToBStack
+                         bindNewToAStack, bindNewToBStack,
+                         CgIdInfo
                        )
 import CgHeapery       ( heapCheck )
 import CgRetConv       ( assignRegs )
@@ -28,8 +33,9 @@ import CgStackery     ( mkVirtStkOffsets )
 import CgUsages                ( setRealAndVirtualSps, getVirtSps )
 import CLabel          ( mkStdEntryLabel )
 import ClosureInfo     ( mkLFLetNoEscape )
-import HeapOffs                ( VirtualSpBOffset(..) )
-import Id              ( idPrimRep )
+import CostCentre       ( CostCentre )
+import HeapOffs                ( SYN_IE(VirtualSpBOffset) )
+import Id              ( idPrimRep, SYN_IE(Id) )
 \end{code}
 
 %************************************************************************