Skip to content
Snippets Groups Projects
Commit e91af1c2 authored by Simon Marlow's avatar Simon Marlow
Browse files

[project @ 1998-01-29 11:42:57 by simonm]

protect some sections for the !OMIT_NATIVE_CODEGEN case.
parent 3d7f51b9
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment