From: sof <unknown>
Date: Wed, 19 Mar 1997 09:31:44 +0000 (+0000)
Subject: [project @ 1997-03-19 09:31:44 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~772
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=baaa28b37a9c945e648feb300fdc2c29904919c2;p=ghc-hetmet.git

[project @ 1997-03-19 09:31:44 by sof]
Fixes to work with cygwin32 GNU cpp
---

diff --git a/ghc/compiler/nativeGen/PprMach.lhs b/ghc/compiler/nativeGen/PprMach.lhs
index d958af7..9b2cd26 100644
--- a/ghc/compiler/nativeGen/PprMach.lhs
+++ b/ghc/compiler/nativeGen/PprMach.lhs
@@ -428,15 +428,15 @@ pprInstr (LABEL clab)
     ]
 
 pprInstr (ASCII False{-no backslash conversion-} str)
-  = uppBesides [ uppPStr SLIT("\t.asciz \""), uppStr str, uppChar '"' ]
+  = uppBesides [ uppPStr SLIT("\t.asciz "), uppChar '\"', uppStr str, uppChar '"' ]
 
 pprInstr (ASCII True str)
-  = uppBeside (uppPStr SLIT("\t.ascii \"")) (asciify str 60)
+  = uppBeside (uppStr "\t.ascii \"") (asciify str 60)
   where
     asciify :: String -> Int -> Unpretty
 
-    asciify [] _ = uppPStr SLIT("\\0\"")
-    asciify s     n | n <= 0 = uppBeside (uppPStr SLIT("\"\n\t.ascii \"")) (asciify s 60)
+    asciify [] _ = uppStr "\\0\""
+    asciify s     n | n <= 0 = uppBeside (uppStr "\"\n\t.ascii \"") (asciify s 60)
     asciify ('\\':cs)      n = uppBeside (uppStr "\\\\") (asciify cs (n-1))
     asciify ('\"':cs)      n = uppBeside (uppStr "\\\"") (asciify cs (n-1))
     asciify (c:cs) n | isPrint c = uppBeside (uppChar c) (asciify cs (n-1))