projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
7febf77
)
(F)SLIT -> (f)sLit in MachOp
author
Ian Lynagh
<igloo@earth.li>
Sat, 12 Apr 2008 13:24:30 +0000
(13:24 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Sat, 12 Apr 2008 13:24:30 +0000
(13:24 +0000)
compiler/cmm/MachOp.hs
patch
|
blob
|
history
diff --git
a/compiler/cmm/MachOp.hs
b/compiler/cmm/MachOp.hs
index
8f55000
..
f2aadcf
100644
(file)
--- a/
compiler/cmm/MachOp.hs
+++ b/
compiler/cmm/MachOp.hs
@@
-126,14
+126,14
@@
data MachRep
| F80 -- extended double-precision, used in x86 native codegen only.
deriving (Eq, Ord, Show)
| F80 -- extended double-precision, used in x86 native codegen only.
deriving (Eq, Ord, Show)
-mrStr I8 = SLIT("I8")
-mrStr I16 = SLIT("I16")
-mrStr I32 = SLIT("I32")
-mrStr I64 = SLIT("I64")
-mrStr I128 = SLIT("I128")
-mrStr F32 = SLIT("F32")
-mrStr F64 = SLIT("F64")
-mrStr F80 = SLIT("F80")
+mrStr I8 = sLit "I8"
+mrStr I16 = sLit "I16"
+mrStr I32 = sLit "I32"
+mrStr I64 = sLit "I64"
+mrStr I128 = sLit "I128"
+mrStr F32 = sLit "F32"
+mrStr F64 = sLit "F64"
+mrStr F80 = sLit "F80"
instance Outputable MachRep where
ppr rep = ptext (mrStr rep)
instance Outputable MachRep where
ppr rep = ptext (mrStr rep)
@@
-284,10
+284,10
@@
data MachHint
| FloatHint
deriving Eq
| FloatHint
deriving Eq
-mhStr NoHint = SLIT("NoHint")
-mhStr PtrHint = SLIT("PtrHint")
-mhStr SignedHint = SLIT("SignedHint")
-mhStr FloatHint = SLIT("FloatHint")
+mhStr NoHint = sLit "NoHint"
+mhStr PtrHint = sLit "PtrHint"
+mhStr SignedHint = sLit "SignedHint"
+mhStr FloatHint = sLit "FloatHint"
instance Outputable MachHint where
ppr hint = ptext (mhStr hint)
instance Outputable MachHint where
ppr hint = ptext (mhStr hint)