From: sof <unknown>
Date: Sat, 2 Aug 1997 21:27:13 +0000 (+0000)
Subject: [project @ 1997-08-02 21:27:13 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~164
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=5017523936ee07507867f7523b2aa02a2f4708ac;p=ghc-hetmet.git

[project @ 1997-08-02 21:27:13 by sof]
Re-export FCode(..), and StgBinderInfo&UpdateFlag to close up interface
---

diff --git a/ghc/compiler/codeGen/ClosureInfo.lhs b/ghc/compiler/codeGen/ClosureInfo.lhs
index 7bade99..a71f3c0 100644
--- 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