diff options
| author | sof <unknown> | 1998-08-14 11:35:33 +0000 |
|---|---|---|
| committer | sof <unknown> | 1998-08-14 11:35:33 +0000 |
| commit | 0556a63e9b0055834e082ed6d0f478b67764a6da (patch) | |
| tree | e33c9c271e61a49715069473302fdbb4d139d448 /ghc/compiler/prelude/TysPrim.lhs | |
| parent | bdb30d3e12b3f364bea3cb54636fda48acc59154 (diff) | |
| download | haskell-0556a63e9b0055834e082ed6d0f478b67764a6da.tar.gz | |
[project @ 1998-08-14 11:35:33 by sof]
getPrimRepInfo: deal with 64-bit reps
Diffstat (limited to 'ghc/compiler/prelude/TysPrim.lhs')
| -rw-r--r-- | ghc/compiler/prelude/TysPrim.lhs | 20 |
1 files changed, 14 insertions, 6 deletions
diff --git a/ghc/compiler/prelude/TysPrim.lhs b/ghc/compiler/prelude/TysPrim.lhs index 7a8796a216..8baa7f3076 100644 --- a/ghc/compiler/prelude/TysPrim.lhs +++ b/ghc/compiler/prelude/TysPrim.lhs @@ -50,9 +50,15 @@ charPrimTyCon = pcPrimTyCon charPrimTyConKey SLIT("Char#") 0 CharRep intPrimTy = mkTyConTy intPrimTyCon intPrimTyCon = pcPrimTyCon intPrimTyConKey SLIT("Int#") 0 IntRep +int64PrimTy = mkTyConTy int64PrimTyCon +int64PrimTyCon = pcPrimTyCon int64PrimTyConKey SLIT("Int64#") 0 Int64Rep + wordPrimTy = mkTyConTy wordPrimTyCon wordPrimTyCon = pcPrimTyCon wordPrimTyConKey SLIT("Word#") 0 WordRep +word64PrimTy = mkTyConTy word64PrimTyCon +word64PrimTyCon = pcPrimTyCon word64PrimTyConKey SLIT("Word64#") 0 Word64Rep + addrPrimTy = mkTyConTy addrPrimTyCon addrPrimTyCon = pcPrimTyCon addrPrimTyConKey SLIT("Addr#") 0 AddrRep @@ -73,12 +79,14 @@ getPrimRepInfo :: PrimRep -> (String, -- tag string Type, TyCon) -- prim type and tycon -getPrimRepInfo CharRep = ("Char", charPrimTy, charPrimTyCon) -getPrimRepInfo IntRep = ("Int", intPrimTy, intPrimTyCon) -getPrimRepInfo WordRep = ("Word", wordPrimTy, wordPrimTyCon) -getPrimRepInfo AddrRep = ("Addr", addrPrimTy, addrPrimTyCon) -getPrimRepInfo FloatRep = ("Float", floatPrimTy, floatPrimTyCon) -getPrimRepInfo DoubleRep = ("Double", doublePrimTy, doublePrimTyCon) +getPrimRepInfo CharRep = ("Char", charPrimTy, charPrimTyCon) +getPrimRepInfo IntRep = ("Int", intPrimTy, intPrimTyCon) +getPrimRepInfo WordRep = ("Word", wordPrimTy, wordPrimTyCon) +getPrimRepInfo AddrRep = ("Addr", addrPrimTy, addrPrimTyCon) +getPrimRepInfo FloatRep = ("Float", floatPrimTy, floatPrimTyCon) +getPrimRepInfo DoubleRep = ("Double", doublePrimTy, doublePrimTyCon) +getPrimRepInfo Int64Rep = ("Int64", int64PrimTy, int64PrimTyCon) +getPrimRepInfo Word64Rep = ("Word64", word64PrimTy, word64PrimTyCon) \end{code} %************************************************************************ |