From: simonm <unknown>
Date: Thu, 29 Jan 1998 11:42:57 +0000 (+0000)
Subject: [project @ 1998-01-29 11:42:57 by simonm]
X-Git-Tag: Approx_2487_patches~1039
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e91af1c2a1faf136aa206896f702eeced0f6e584;p=ghc-hetmet.git

[project @ 1998-01-29 11:42:57 by simonm]
protect some sections for the !OMIT_NATIVE_CODEGEN case.
---

diff --git a/ghc/compiler/absCSyn/CLabel.lhs b/ghc/compiler/absCSyn/CLabel.lhs
index ce23e2b..94b84e5 100644
--- a/ghc/compiler/absCSyn/CLabel.lhs
+++ b/ghc/compiler/absCSyn/CLabel.lhs
@@ -311,14 +311,18 @@ pprCLabel_asm = pprCLabel
 
 pprCLabel :: CLabel -> SDoc
 
+#if ! OMIT_NATIVE_CODEGEN
 pprCLabel (AsmTempLabel u)
   = text (fmtAsmLbl (showUnique u))
+#endif
 
-pprCLabel lbl
-  = getPprStyle $ \ sty ->
+pprCLabel lbl = 
+#if ! OMIT_NATIVE_CODEGEN
+    getPprStyle $ \ sty ->
     if asmStyle sty && underscorePrefix then
        pp_cSEP <> pprCLbl lbl
     else
+#endif
        pprCLbl lbl