From: sof <unknown>
Date: Fri, 25 Jul 1997 23:14:07 +0000 (+0000)
Subject: [project @ 1997-07-25 23:12:22 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~218
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e61989712af7e83c30ca1676df4e2a8dbf9cf3f4;p=ghc-hetmet.git

[project @ 1997-07-25 23:12:22 by sof]
wibble
---

diff --git a/ghc/compiler/basicTypes/Unique.hi-boot b/ghc/compiler/basicTypes/Unique.hi-boot
index 2241525..96175be 100644
--- a/ghc/compiler/basicTypes/Unique.hi-boot
+++ b/ghc/compiler/basicTypes/Unique.hi-boot
@@ -2,6 +2,6 @@ _interface_ Unique 1
 _exports_
 Unique Unique Uniquable(uniqueOf) mkUniqueGrimily;
 _declarations_
-1 data Unique;
-1 mkUniqueGrimily _:_ GHC.Int# -> Unique.Unique ;;
-1 class Uniquable a where {uniqueOf :: a -> Unique};
+1 class Uniquable a where {uniqueOf :: a -> Unique} ;
+1 data Unique = MkUnique GHC.Int# ;
+1 mkUniqueGrimily _:_ GHC.Int# -> Unique ;;
diff --git a/ghc/compiler/codeGen/CgBindery.hi-boot b/ghc/compiler/codeGen/CgBindery.hi-boot
index 1206f10..f9a119b 100644
--- a/ghc/compiler/codeGen/CgBindery.hi-boot
+++ b/ghc/compiler/codeGen/CgBindery.hi-boot
@@ -3,7 +3,7 @@ _exports_
 CgBindery CgBindings CgIdInfo(MkCgIdInfo) VolatileLoc StableLoc nukeVolatileBinds maybeAStkLoc maybeBStkLoc;
 _declarations_
 1 type CgBindings = Id.IdEnv CgIdInfo;
-1 data CgIdInfo = MkCgIdInfo Id.Id CgBindery.VolatileLoc CgBindery.StableLoc ClosureInfo.LambdaFormInfo;
+1 data CgIdInfo = MkCgIdInfo Id.Id CgBindery.VolatileLoc CgBindery.StableLoc ClosureInfo!LambdaFormInfo;
 1 data VolatileLoc;
 1 data StableLoc;
 1 nukeVolatileBinds _:_ CgBindery.CgBindings -> CgBindery.CgBindings ;;
diff --git a/ghc/compiler/codeGen/ClosureInfo.hi-boot b/ghc/compiler/codeGen/ClosureInfo.hi-boot
index eaa1fc3..95500ad 100644
--- a/ghc/compiler/codeGen/ClosureInfo.hi-boot
+++ b/ghc/compiler/codeGen/ClosureInfo.hi-boot
@@ -1,19 +1,14 @@
 _interface_ ClosureInfo 1
 _exports_
-ClosureInfo ClosureInfo LambdaFormInfo closureKind closureLabelFromCI closureNonHdrSize closurePtrsSize closureSMRep closureSemiTag closureSizeWithoutFixedHdr closureTypeDescr closureUpdReqd entryLabelFromCI fastLabelFromCI infoTableLabelFromCI maybeSelectorInfo;
+ClosureInfo ClosureInfo LambdaFormInfo 
+	;
 _declarations_
+-- 1 infoTableLabelFromCI _:_ ClosureInfo -> CLabel ;;
+-- 1 closureSMRep _:_ ClosureInfo -> SMRep.SMRep ;;
+-- 1 closureSizeWithoutFixedHdr _:_ ClosureInfo -> HeapOffs.HeapOffset ;;
+-- 1 closureTypeDescr _:_ ClosureInfo -> PrelBase.String ;;
+-- 1 closureLabelFromCI _:_ ClosureInfo -> CLabel ;;
+
 1 data LambdaFormInfo;
 1 data ClosureInfo;
-1 closureKind _:_ ClosureInfo -> PrelBase.String ;;
-1 closureLabelFromCI _:_ ClosureInfo -> CLabel.CLabel ;;
-1 closureNonHdrSize _:_ ClosureInfo -> PrelBase.Int ;;
-1 closurePtrsSize _:_ ClosureInfo -> PrelBase.Int ;;
-1 closureSMRep _:_ ClosureInfo -> SMRep.SMRep ;;
-1 closureSemiTag _:_ ClosureInfo -> PrelBase.Int ;;
-1 closureSizeWithoutFixedHdr _:_ ClosureInfo -> HeapOffs.HeapOffset ;;
-1 closureTypeDescr _:_ ClosureInfo -> PrelBase.String ;;
-1 closureUpdReqd _:_ ClosureInfo -> PrelBase.Bool ;;
-1 entryLabelFromCI _:_ ClosureInfo -> CLabel.CLabel ;;
-1 fastLabelFromCI _:_ ClosureInfo -> CLabel.CLabel ;;
-1 infoTableLabelFromCI _:_ ClosureInfo -> CLabel.CLabel ;;
-1 maybeSelectorInfo _:_ ClosureInfo -> PrelBase.Maybe (Id.Id, PrelBase.Int) ;;
+