summaryrefslogtreecommitdiff
path: root/compiler/nativeGen
diff options
context:
space:
mode:
authorIan Lynagh <igloo@earth.li>2008-04-12 15:23:07 +0000
committerIan Lynagh <igloo@earth.li>2008-04-12 15:23:07 +0000
commite1ca482b971739838cb5aa46dbc5b17bdf5c97c4 (patch)
treec2aaf2d105f3bffaa2fa16162bfe4da1d5a70f32 /compiler/nativeGen
parente76313a8d0703a29ee535e7c5fb6c0b657bc15d9 (diff)
downloadhaskell-e1ca482b971739838cb5aa46dbc5b17bdf5c97c4.tar.gz
(F)SLIT -> (f)sLit in RegLiveness
Diffstat (limited to 'compiler/nativeGen')
-rw-r--r--compiler/nativeGen/RegLiveness.hs8
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