projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
3d7f51b
)
[project @ 1998-01-29 11:42:57 by simonm]
author
simonm
<unknown>
Thu, 29 Jan 1998 11:42:57 +0000
(11:42 +0000)
committer
simonm
<unknown>
Thu, 29 Jan 1998 11:42:57 +0000
(11:42 +0000)
protect some sections for the !OMIT_NATIVE_CODEGEN case.
ghc/compiler/absCSyn/CLabel.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/absCSyn/CLabel.lhs
b/ghc/compiler/absCSyn/CLabel.lhs
index
ce23e2b
..
94b84e5
100644
(file)
--- 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