From 139e2051e2c206ba870d00ba5ff0adf62b1e7749 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Fri, 16 Jan 1998 12:20:30 +0000
Subject: [PATCH] [project @ 1998-01-16 12:20:30 by simonm] remove a few SLIT's
with commas and parenthesis.
---
ghc/compiler/nativeGen/PprMach.lhs | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/ghc/compiler/nativeGen/PprMach.lhs b/ghc/compiler/nativeGen/PprMach.lhs
index bd242bf3e93a..0876c43f77d1 100644
--- a/ghc/compiler/nativeGen/PprMach.lhs
+++ b/ghc/compiler/nativeGen/PprMach.lhs
@@ -300,12 +300,12 @@ pprImm (ImmLab s) | underscorePrefix = (<>) (char '_') s
pprImm (LO i)
= hcat [ pp_lo, pprImm i, rparen ]
where
- pp_lo = ptext SLIT("%lo(")
+ pp_lo = text "%lo("
pprImm (HI i)
= hcat [ pp_hi, pprImm i, rparen ]
where
- pp_hi = ptext SLIT("%hi(")
+ pp_hi = text "%hi("
#endif
\end{code}
@@ -442,7 +442,7 @@ pprInstr (ASCII True str)
asciify ('\\':cs) n = (<>) (text "\\\\") (asciify cs (n-1))
asciify ('\"':cs) n = (<>) (text "\\\"") (asciify cs (n-1))
asciify (c:cs) n | isPrint c = (<>) (char c) (asciify cs (n-1))
- asciify [c] _ = (<>) (text (charToC c)) (text ("\\0\""))
+ asciify [c] _ = (<>) (text (charToC c)) (text ("\\0\"")){-"-}
asciify (c:(cs@(d:_))) n
| isDigit d = (<>) (text (charToC c)) (asciify cs 0)
| otherwise = (<>) (text (charToC c)) (asciify cs (n-1))
@@ -1369,9 +1369,9 @@ pprRIReg name b ri reg1
]
pp_ld_lbracket = ptext SLIT("\tld\t[")
-pp_rbracket_comma = ptext SLIT("],")
-pp_comma_lbracket = ptext SLIT(",[")
-pp_comma_a = ptext SLIT(",a")
+pp_rbracket_comma = text "],"
+pp_comma_lbracket = text ",["
+pp_comma_a = text ",a"
#endif {-sparc_TARGET_ARCH-}
\end{code}
--
GitLab