From: simonmar <unknown>
Date: Wed, 20 Oct 2004 11:16:08 +0000 (+0000)
Subject: [project @ 2004-10-20 11:16:08 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~1489
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=ca23a0493febcc04f6f2fda5a221ad7350ad8bec

[project @ 2004-10-20 11:16:08 by simonmar]
Fix braino in pprAsmCLbl
---

diff --git a/ghc/compiler/cmm/CLabel.hs b/ghc/compiler/cmm/CLabel.hs
index 1366dcb..f50d406 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")