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:
55b2f1d
)
(F)SLIT -> (f)sLit in SMRep
author
Ian Lynagh
<igloo@earth.li>
Sat, 12 Apr 2008 13:25:34 +0000
(13:25 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Sat, 12 Apr 2008 13:25:34 +0000
(13:25 +0000)
compiler/codeGen/SMRep.lhs
patch
|
blob
|
history
diff --git
a/compiler/codeGen/SMRep.lhs
b/compiler/codeGen/SMRep.lhs
index
1845c44
..
28d1707
100644
(file)
--- a/
compiler/codeGen/SMRep.lhs
+++ b/
compiler/codeGen/SMRep.lhs
@@
-43,7
+43,6
@@
module SMRep (
rET_SMALL, rET_BIG
) where
rET_SMALL, rET_BIG
) where
-#include "HsVersions.h"
#include "../includes/MachDeps.h"
import Id
#include "../includes/MachDeps.h"
import Id
@@
-130,12
+129,12
@@
data CgRep
deriving Eq
instance Outputable CgRep where
deriving Eq
instance Outputable CgRep where
- ppr VoidArg = ptext SLIT("V_")
- ppr PtrArg = ptext SLIT("P_")
- ppr NonPtrArg = ptext SLIT("I_")
- ppr LongArg = ptext SLIT("L_")
- ppr FloatArg = ptext SLIT("F_")
- ppr DoubleArg = ptext SLIT("D_")
+ ppr VoidArg = ptext (sLit "V_")
+ ppr PtrArg = ptext (sLit "P_")
+ ppr NonPtrArg = ptext (sLit "I_")
+ ppr LongArg = ptext (sLit "L_")
+ ppr FloatArg = ptext (sLit "F_")
+ ppr DoubleArg = ptext (sLit "D_")
argMachRep :: CgRep -> MachRep
argMachRep PtrArg = wordRep
argMachRep :: CgRep -> MachRep
argMachRep PtrArg = wordRep