diff options
| author | simonmar <unknown> | 2004-10-20 11:16:08 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2004-10-20 11:16:08 +0000 |
| commit | ca23a0493febcc04f6f2fda5a221ad7350ad8bec (patch) | |
| tree | 8a4ff36d611f886aa49539f721c1f2e5c2648dc8 | |
| parent | a60a1a893dcf3cbb425a4b52735cedec10b89203 (diff) | |
| download | haskell-ca23a0493febcc04f6f2fda5a221ad7350ad8bec.tar.gz | |
[project @ 2004-10-20 11:16:08 by simonmar]
Fix braino in pprAsmCLbl
| -rw-r--r-- | ghc/compiler/cmm/CLabel.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/ghc/compiler/cmm/CLabel.hs b/ghc/compiler/cmm/CLabel.hs index 1366dcbd9e..f50d406fa4 100644 --- a/ghc/compiler/cmm/CLabel.hs +++ b/ghc/compiler/cmm/CLabel.hs @@ -574,10 +574,9 @@ maybe_underscore doc -- (The C compiler does this itself). pprAsmCLbl (ForeignLabel fs (Just sz) _) = ftext fs <> char '@' <> int sz -#else +#endif pprAsmCLbl lbl = pprCLbl lbl -#endif pprCLbl (StringLitLabel u) = pprUnique u <> ptext SLIT("_str") |