From 253dd0d43af71d739402e79fa76a45cbe3f65b53 Mon Sep 17 00:00:00 2001 From: sof <unknown> Date: Sun, 27 Jul 1997 09:13:57 +0000 Subject: [PATCH] [project @ 1997-07-27 09:13:57 by sof] Updated --- ghc/compiler/absCSyn/AbsCLoop.lhi | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/ghc/compiler/absCSyn/AbsCLoop.lhi b/ghc/compiler/absCSyn/AbsCLoop.lhi index 2d5f61d85da8..b28900e54838 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 -- GitLab