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:
e76313a
)
(F)SLIT -> (f)sLit in RegLiveness
author
Ian Lynagh
<igloo@earth.li>
Sat, 12 Apr 2008 15:23:07 +0000
(15:23 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Sat, 12 Apr 2008 15:23:07 +0000
(15:23 +0000)
compiler/nativeGen/RegLiveness.hs
patch
|
blob
|
history
diff --git
a/compiler/nativeGen/RegLiveness.hs
b/compiler/nativeGen/RegLiveness.hs
index
6bee0c8
..
9a23ef4
100644
(file)
--- a/
compiler/nativeGen/RegLiveness.hs
+++ b/
compiler/nativeGen/RegLiveness.hs
@@
-30,8
+30,6
@@
module RegLiveness (
) where
) where
-#include "HsVersions.h"
-
import MachRegs
import MachInstrs
import PprMach
import MachRegs
import MachInstrs
import PprMach
@@
-113,9
+111,9
@@
instance Outputable LiveInstr where
= ppr instr
$$ (nest 8
$ vcat
= ppr instr
$$ (nest 8
$ vcat
- [ pprRegs (ptext SLIT("# born: ")) (liveBorn live)
- , pprRegs (ptext SLIT("# r_dying: ")) (liveDieRead live)
- , pprRegs (ptext SLIT("# w_dying: ")) (liveDieWrite live) ]
+ [ pprRegs (ptext (sLit "# born: ")) (liveBorn live)
+ , pprRegs (ptext (sLit "# r_dying: ")) (liveDieRead live)
+ , pprRegs (ptext (sLit "# w_dying: ")) (liveDieWrite live) ]
$+$ space)
where pprRegs :: SDoc -> RegSet -> SDoc
$+$ space)
where pprRegs :: SDoc -> RegSet -> SDoc