[project @ 1997-08-02 21:27:13 by sof]

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

diff --git a/ghc/compiler/codeGen/ClosureInfo.lhs b/ghc/compiler/codeGen/ClosureInfo.lhs
index 30b0462..a71f3c0 100644 (file)
--- a/ghc/compiler/codeGen/ClosureInfo.lhs
+++ b/ghc/compiler/codeGen/ClosureInfo.lhs
@@ -17,6 +17,7 @@ module ClosureInfo (
 
        mkClosureLFInfo, mkConLFInfo, mkSelectorLFInfo, mkVapLFInfo,
        mkLFImported, mkLFArgument, mkLFLetNoEscape,
+       UpdateFlag,
 
        closureSize, closureHdrSize,
        closureNonHdrSize, closureSizeWithoutFixedHdr,
@@ -27,12 +28,15 @@ module ClosureInfo (
        layOutStaticNoFVClosure, layOutPhantomClosure,
        mkVirtHeapOffsets,
 
-       nodeMustPointToIt, getEntryConvention,
+       nodeMustPointToIt, getEntryConvention, 
+       SYN_IE(FCode), CgInfoDownwards, CgState, 
+
        blackHoleOnEntry,
 
        staticClosureRequired,
        slowFunEntryCodeRequired, funInfoTableRequired,
        stdVapRequired, noUpdVapRequired,
+       StgBinderInfo,
 
        closureId, infoTableLabelFromCI, fastLabelFromCI,
        closureLabelFromCI,
@@ -40,6 +44,7 @@ module ClosureInfo (
        closureLFInfo, closureSMRep, closureUpdReqd,
        closureSingleEntry, closureSemiTag, closureType,
        closureReturnsUnboxedType, getStandardFormThunkInfo,
+       GenStgArg,
 
        isToplevClosure,
        closureKind, closureTypeDescr,          -- profiling
@@ -56,7 +61,9 @@ IMP_Ubiq(){-uitous-}
 IMPORT_DELOOPER(AbsCLoop)              -- here for paranoia-checking
 #endif
 
-import AbsCSyn
+import AbsCSyn         ( MagicId, node, mkLiveRegsMask,
+                         {- GHC 0.29 only -} AbstractC, CAddrMode
+                       )
 import StgSyn
 import CgMonad