diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2007-07-02 09:22:57 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2007-07-02 09:22:57 +0000 |
| commit | 0a38c61e534a952ec7a083c822efeac71b9015f4 (patch) | |
| tree | 23c1373bfb93ff8adfa6c6dc2fa5f0e3314d1580 /compiler/cmm | |
| parent | 7777ec47dbb0fb49116dc84af4bcc95edfd27702 (diff) | |
| download | haskell-0a38c61e534a952ec7a083c822efeac71b9015f4.tar.gz | |
FIX #1471: print strings using Haskell quoting syntax
Diffstat (limited to 'compiler/cmm')
| -rw-r--r-- | compiler/cmm/PprCmm.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/compiler/cmm/PprCmm.hs b/compiler/cmm/PprCmm.hs index cb2adf7dc1..e8176bae60 100644 --- a/compiler/cmm/PprCmm.hs +++ b/compiler/cmm/PprCmm.hs @@ -51,7 +51,6 @@ import FastString import Data.List import System.IO import Data.Maybe -import Data.Char pprCmms :: [Cmm] -> SDoc pprCmms cmms = pprCode CStyle (vcat (intersperse separator $ map ppr cmms)) @@ -397,8 +396,7 @@ pprStatic s = case s of CmmUninitialised i -> nest 4 $ text "I8" <> brackets (int i) CmmAlign i -> nest 4 $ text "align" <+> int i CmmDataLabel clbl -> pprCLabel clbl <> colon - CmmString s' -> nest 4 $ text "I8[]" <+> - doubleQuotes (text (map (chr.fromIntegral) s')) + CmmString s' -> nest 4 $ text "I8[]" <+> text (show s') -- -------------------------------------------------------------------------- -- Registers, whether local (temps) or global |