diff options
author | Ian Lynagh <igloo@earth.li> | 2008-04-12 15:23:07 +0000 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2008-04-12 15:23:07 +0000 |
commit | e1ca482b971739838cb5aa46dbc5b17bdf5c97c4 (patch) | |
tree | c2aaf2d105f3bffaa2fa16162bfe4da1d5a70f32 /compiler/nativeGen | |
parent | e76313a8d0703a29ee535e7c5fb6c0b657bc15d9 (diff) | |
download | haskell-e1ca482b971739838cb5aa46dbc5b17bdf5c97c4.tar.gz |
(F)SLIT -> (f)sLit in RegLiveness
Diffstat (limited to 'compiler/nativeGen')
-rw-r--r-- | compiler/nativeGen/RegLiveness.hs | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/compiler/nativeGen/RegLiveness.hs b/compiler/nativeGen/RegLiveness.hs index 6bee0c85fc..9a23ef4129 100644 --- a/compiler/nativeGen/RegLiveness.hs +++ b/compiler/nativeGen/RegLiveness.hs @@ -30,8 +30,6 @@ module RegLiveness ( ) where -#include "HsVersions.h" - import MachRegs import MachInstrs import PprMach @@ -113,9 +111,9 @@ instance Outputable LiveInstr where = 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 |