X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FabsCSyn%2FCLabel.lhs;h=74d214424385e81e87303b2cbe778ae49fd77199;hb=68afb16743cafd5b7495771d359891c6dfc5a186;hp=a6df00937bfb3fac5ec3a88a3910fd9760146024;hpb=3990d44447b6c38a2effd68beb50da459dfd19fc;p=ghc-hetmet.git

diff --git a/ghc/compiler/absCSyn/CLabel.lhs b/ghc/compiler/absCSyn/CLabel.lhs
index a6df009..74d2144 100644
--- a/ghc/compiler/absCSyn/CLabel.lhs
+++ b/ghc/compiler/absCSyn/CLabel.lhs
@@ -39,7 +39,10 @@ module CLabel (
 
 	needsCDecl, isReadOnly, isAsmTemp, externallyVisibleCLabel,
 
-	pprCLabel, pprCLabel_asm
+	pprCLabel
+#if ! OMIT_NATIVE_CODEGEN
+	, pprCLabel_asm
+#endif
 
 #ifdef GRAN
 	, isSlowEntryCCodeBlock
@@ -50,7 +53,9 @@ import Ubiq{-uitous-}
 import AbsCLoop		( CtrlReturnConvention(..),
 			  ctrlReturnConvAlg
 			)
+#if ! OMIT_NATIVE_CODEGEN
 import NcgLoop		( underscorePrefix, fmtAsmLbl )
+#endif
 
 import CStrings		( pp_cSEP )
 import Id		( externallyVisibleId, cmpId_withSpecDataCon,
@@ -314,7 +319,9 @@ duplicate declarations in generating C (see @labelSeenTE@ in
 
 \begin{code}
 -- specialised for PprAsm: saves lots of arg passing in NCG
+#if ! OMIT_NATIVE_CODEGEN
 pprCLabel_asm = pprCLabel (PprForAsm underscorePrefix fmtAsmLbl)
+#endif
 
 pprCLabel :: PprStyle -> CLabel -> Unpretty