[project @ 1996-01-11 14:06:51 by partain]

[ghc-hetmet.git] / ghc / compiler / absCSyn / HeapOffs.hi

diff --git a/ghc/compiler/absCSyn/HeapOffs.hi b/ghc/compiler/absCSyn/HeapOffs.hi
index 5e06692..3506ac8 100644 (file)
--- a/ghc/compiler/absCSyn/HeapOffs.hi
+++ b/ghc/compiler/absCSyn/HeapOffs.hi
@@ -1,6 +1,7 @@
 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
 interface HeapOffs where
 import CharSeq(CSeq)
+import MachDesc(Target)
 import Maybes(Labda)
 import Pretty(PprStyle)
 import SMRep(SMRep)
@@ -12,27 +13,16 @@ type VirtualHeapOffset = HeapOffset
 type VirtualSpAOffset = Int
 type VirtualSpBOffset = Int
 addOff :: HeapOffset -> HeapOffset -> HeapOffset
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-}
 fixedHdrSize :: HeapOffset
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}
+hpRelToInt :: Target -> HeapOffset -> Int
 intOff :: Int -> HeapOffset
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-}
 intOffsetIntoGoods :: HeapOffset -> Labda Int
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
 isZeroOff :: HeapOffset -> Bool
-       {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
 maxOff :: HeapOffset -> HeapOffset -> HeapOffset
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-}
 possiblyEqualHeapOffset :: HeapOffset -> HeapOffset -> Bool
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _S_ "LS" _N_ _N_ #-}
 pprHeapOffset :: PprStyle -> HeapOffset -> CSeq
-       {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "LS" _N_ _N_ #-}
 subOff :: HeapOffset -> HeapOffset -> HeapOffset
-       {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _S_ "LS" _N_ _N_ #-}
 totHdrSize :: SMRep -> HeapOffset
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "S" _N_ _N_ #-}
 varHdrSize :: SMRep -> HeapOffset
-       {-# GHC_PRAGMA _A_ 1 _U_ 2 _N_ _S_ "S" _N_ _N_ #-}
 zeroOff :: HeapOffset
-       {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-}