[project @ 1997-07-27 09:13:57 by sof]

Updated

diff --git a/ghc/compiler/absCSyn/AbsCLoop.lhi b/ghc/compiler/absCSyn/AbsCLoop.lhi
index 2d5f61d..b28900e 100644 (file)
--- a/ghc/compiler/absCSyn/AbsCLoop.lhi
+++ b/ghc/compiler/absCSyn/AbsCLoop.lhi
@@ -21,12 +21,13 @@ import ClosureInfo  ( closureKind, closureLabelFromCI,
                          entryLabelFromCI,fastLabelFromCI,
                          ClosureInfo
                        )
-import CLabel          ( CLabel )
+import CLabel          ( mkReturnPtLabel, CLabel )
 import HeapOffs                ( HeapOffset )
 import Id              ( Id(..) )
 import MachMisc                ( fixedHdrSizeInWords, varHdrSizeInWords )
 import SMRep           ( SMRep )
 import TyCon           ( TyCon )
+import Unique          ( Unique )
 
 closureKind :: ClosureInfo -> [Char]
 closureLabelFromCI :: ClosureInfo -> CLabel
@@ -42,6 +43,8 @@ fastLabelFromCI :: ClosureInfo -> CLabel
 infoTableLabelFromCI :: ClosureInfo -> CLabel
 maybeSelectorInfo :: ClosureInfo -> Maybe (Id, Int)
 
+mkReturnPtLabel :: Unique -> CLabel
+
 ctrlReturnConvAlg :: TyCon -> CtrlReturnConvention
 data CtrlReturnConvention   = VectoredReturn Int | UnvectoredReturn Int