types.
\begin{code}
-#include "HsVersions.h"
-
-module PrimRep (
- PrimRep(..),
+module PrimRep
+ (
+ PrimRep(..)
+ , separateByPtrFollowness
+ , isFollowableRep
+ , isFloatingRep
+ , is64BitRep
+ , getPrimRepSize
+ , getPrimRepSizeInBytes
+ , retPrimRepSize
+ , showPrimRep
+ , showPrimRepToUser
+ , ppPrimRep
+ , guessPrimRep
+ , decodePrimRep
+ ) where
- separateByPtrFollowness, isFollowableRep, isFloatingRep,
- getPrimRepSize, retPrimRepSize,
- showPrimRep,
- guessPrimRep
- ) where
-
-IMP_Ubiq()
+#include "HsVersions.h"
-import Pretty -- pretty-printing code
import Util
+import Outputable
+-- Oh dear.
+-- NOTE: we have to reach out and grab this header file
+-- in our current source/build tree, and not the one supplied
+-- by whoever's compiling us.
#include "../../includes/GhcConstants.h"
\end{code}
| AddrRep -- addresses ("C pointers")
| FloatRep -- floats
| DoubleRep -- doubles
+ | Word64Rep -- guaranteed to be 64 bits (no more, no less.)
+ | Int64Rep -- guaranteed to be 64 bits (no more, no less.)
| ForeignObjRep -- This has to be a special kind because ccall
-- generates special code when passing/returning
%************************************************************************
Whether or not the thing is a pointer that the garbage-collector
-should follow.
+should follow. Or, to put it another (less confusing) way, whether
+the object in question is a heap object.
-Or, to put it another (less confusing) way, whether the object in
-question is a heap object.
+Depending on the outcome, this predicate determines what stack
+the pointer/object possibly will have to be saved onto, and the
+computation of GC liveness info.
\begin{code}
isFollowableRep :: PrimRep -> Bool
isFollowableRep PtrRep = True
isFollowableRep ArrayRep = True
isFollowableRep ByteArrayRep = True
--- why is a MallocPtr followable? 4/96 SOF
--- isFollowableRep ForeignObjRep = True
+-- why is a ForeignObj followable? 4/96 SOF
+--
+-- A: they're followable because these objects
+-- should be lugged around by the storage manager
+-- (==> registers containing them are live) -- 3/97 SOF
+isFollowableRep ForeignObjRep = True
isFollowableRep StablePtrRep = False
-- StablePtrs aren't followable because they are just indices into a
isFloatingRep DoubleRep = True
isFloatingRep FloatRep = True
isFloatingRep other = False
+
\end{code}
\begin{code}
+is64BitRep :: PrimRep -> Bool
+
+is64BitRep Int64Rep = True
+is64BitRep Word64Rep = True
+is64BitRep other = False
+
+\end{code}
+
+
+
+\begin{code}
getPrimRepSize :: PrimRep -> Int
getPrimRepSize DoubleRep = DOUBLE_SIZE -- "words", of course
+getPrimRepSize Word64Rep = WORD64_SIZE
+getPrimRepSize Int64Rep = INT64_SIZE
--getPrimRepSize FloatRep = 1
--getPrimRepSize CharRep = 1 -- ToDo: count in bytes?
--getPrimRepSize ArrayRep = 1 -- Listed specifically for *documentation*
getPrimRepSize other = 1
retPrimRepSize = getPrimRepSize RetRep
+
+-- size in bytes, ToDo: cpp in the right vals.
+-- (used in some settings to figure out how many bytes
+-- we have to push onto the stack when calling external
+-- entry points (e.g., stdcalling on win32))
+getPrimRepSizeInBytes :: PrimRep -> Int
+getPrimRepSizeInBytes pr =
+ case pr of
+ CharRep -> 1
+ IntRep -> 4
+ AddrRep -> 4
+ FloatRep -> 4
+ DoubleRep -> 8
+ Word64Rep -> 8
+ Int64Rep -> 8
+ ForeignObjRep -> 4
+ StablePtrRep -> 4
+ ArrayRep -> 4
+ ByteArrayRep -> 4
+ _ -> panic "getPrimRepSize: ouch - this wasn't supposed to happen!"
+
\end{code}
%************************************************************************
\begin{code}
instance Outputable PrimRep where
- ppr sty kind = ppStr (showPrimRep kind)
+ ppr kind = text (showPrimRep kind)
showPrimRep :: PrimRep -> String
+showPrimRepToUser :: PrimRep -> String
+-- dumping PrimRep tag for unfoldings
+ppPrimRep :: PrimRep -> SDoc
+
guessPrimRep :: String -> PrimRep -- a horrible "inverse" function
+decodePrimRep :: Char -> PrimRep -- of equal nature
+
+ppPrimRep k =
+ char
+ (case k of
+ PtrRep -> 'P'
+ CodePtrRep -> 'p'
+ DataPtrRep -> 'd'
+ CostCentreRep -> 'c' -- Pointer to a cost centre
+ RetRep -> 'R'
+ CharRep -> 'C'
+ IntRep -> 'I'
+ Int64Rep -> 'i'
+ WordRep -> 'W'
+ Word64Rep -> 'w'
+ AddrRep -> 'A'
+ FloatRep -> 'F'
+ DoubleRep -> 'D'
+ ArrayRep -> 'a'
+ ByteArrayRep -> 'b'
+ StablePtrRep -> 'S'
+ ForeignObjRep -> 'f'
+ VoidRep -> 'V'
+ _ -> panic "ppPrimRep")
showPrimRep PtrRep = "P_" -- short for StgPtr
showPrimRep CharRep = "StgChar"
showPrimRep IntRep = "I_" -- short for StgInt
showPrimRep WordRep = "W_" -- short for StgWord
+showPrimRep Int64Rep = "LI_" -- short for StgLongInt
+showPrimRep Word64Rep = "LW_" -- short for StgLongWord
showPrimRep AddrRep = "StgAddr"
showPrimRep FloatRep = "StgFloat"
showPrimRep DoubleRep = "StgDouble"
showPrimRep ForeignObjRep = "StgPtr" -- see comment below
showPrimRep VoidRep = "!!VOID_KIND!!"
-guessPrimRep "D_" = DataPtrRep
+showPrimRepToUser pr =
+ case pr of
+ CharRep -> "StgChar"
+ IntRep -> "StgInt"
+ WordRep -> "StgWord"
+ Int64Rep -> "StgInt64"
+ Word64Rep -> "StgWord64"
+ AddrRep -> "StgAddr"
+ FloatRep -> "StgFloat"
+ DoubleRep -> "StgDouble"
+ ArrayRep -> "StgArray"
+ ByteArrayRep -> "StgByteArray"
+ StablePtrRep -> "StgStablePtr"
+ ForeignObjRep -> "StgPtr"
+ _ -> panic ("showPrimRepToUser: " ++ showPrimRep pr)
+
+
+decodePrimRep ch =
+ case ch of
+ 'P' -> PtrRep
+ 'p' -> CodePtrRep
+ 'd' -> DataPtrRep
+ 'c' -> CostCentreRep
+ 'R' -> RetRep
+ 'C' -> CharRep
+ 'I' -> IntRep
+ 'W' -> WordRep
+ 'i' -> Int64Rep
+ 'w' -> Word64Rep
+ 'A' -> AddrRep
+ 'F' -> FloatRep
+ 'D' -> DoubleRep
+ 'a' -> ArrayRep
+ 'b' -> ByteArrayRep
+ 'S' -> StablePtrRep
+ 'f' -> ForeignObjRep
+ 'V' -> VoidRep
+ _ -> panic "decodePrimRep"
+
+guessPrimRep "D_" = DataPtrRep
guessPrimRep "StgRetAddr" = RetRep
-guessPrimRep "StgChar" = CharRep
-guessPrimRep "I_" = IntRep
-guessPrimRep "W_" = WordRep
-guessPrimRep "StgAddr" = AddrRep
+guessPrimRep "StgChar" = CharRep
+guessPrimRep "I_" = IntRep
+guessPrimRep "LI_" = Int64Rep
+guessPrimRep "W_" = WordRep
+guessPrimRep "LW_" = Word64Rep
+guessPrimRep "StgAddr" = AddrRep
guessPrimRep "StgFloat" = FloatRep
guessPrimRep "StgDouble" = DoubleRep
guessPrimRep "StgArray" = ArrayRep
projects / ghc-hetmet.git / blobdiff