From: sof <unknown>
Date: Sun, 27 Jul 1997 09:13:57 +0000 (+0000)
Subject: [project @ 1997-07-27 09:13:57 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~175
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=253dd0d43af71d739402e79fa76a45cbe3f65b53;p=ghc-hetmet.git

[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
--- 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