Commit e1ca482b authored by Ian Lynagh's avatar Ian Lynagh
Browse files

(F)SLIT -> (f)sLit in RegLiveness

parent e76313a8
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment