Commit 0556a63e authored by sof's avatar sof
Browse files

[project @ 1998-08-14 11:35:33 by sof]

getPrimRepInfo: deal with 64-bit reps
parent bdb30d3e
......@@ -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}
%************************************************************************
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment