X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FnativeGen%2FX86%2FPpr.hs;fp=compiler%2FnativeGen%2FX86%2FPpr.hs;h=769057ae024a28f911ce0c3fa3cdf26794b2a26a;hp=bf3e4dddf3d71c0fc7b4dc099b6c735495e21c35;hb=7867349134ee26e4276ff04ace7c815c1de43338;hpb=e5d8b4d0c6dd20a51597517208cbd4b0cc50c7de

diff --git a/compiler/nativeGen/X86/Ppr.hs b/compiler/nativeGen/X86/Ppr.hs
index bf3e4dd..769057a 100644
--- a/compiler/nativeGen/X86/Ppr.hs
+++ b/compiler/nativeGen/X86/Ppr.hs
@@ -118,9 +118,7 @@ pprData (CmmStaticLit lit)       = pprDataItem lit
 pprGloblDecl :: CLabel -> Doc
 pprGloblDecl lbl
   | not (externallyVisibleCLabel lbl) = empty
-  | otherwise = ptext IF_ARCH_sparc((sLit ".global "),
-                                    (sLit ".globl ")) <>
-                pprCLabel_asm lbl
+  | otherwise = ptext (sLit ".globl ") <> pprCLabel_asm lbl
 
 pprTypeAndSizeDecl :: CLabel -> Doc
 #if elf_OBJ_FORMAT