From e91af1c2a1faf136aa206896f702eeced0f6e584 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Thu, 29 Jan 1998 11:42:57 +0000
Subject: [PATCH] [project @ 1998-01-29 11:42:57 by simonm] protect some
sections for the !OMIT_NATIVE_CODEGEN case.
---
ghc/compiler/absCSyn/CLabel.lhs | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/ghc/compiler/absCSyn/CLabel.lhs b/ghc/compiler/absCSyn/CLabel.lhs
index ce23e2b039ae..94b84e5a2c5b 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
--
GitLab