Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/e94e97a134612e53ff8f5ce71914f8e7361a654a >--------------------------------------------------------------- commit e94e97a134612e53ff8f5ce71914f8e7361a654a Author: Ian Lynagh <[email protected]> Date: Sat Oct 15 00:27:33 2011 +0100 Remove some CPP from nativeGen/SPARC/Ppr.hs >--------------------------------------------------------------- compiler/nativeGen/SPARC/Ppr.hs | 12 ++++-------- 1 files changed, 4 insertions(+), 8 deletions(-) diff --git a/compiler/nativeGen/SPARC/Ppr.hs b/compiler/nativeGen/SPARC/Ppr.hs index e25ecd5..4f7e264 100644 --- a/compiler/nativeGen/SPARC/Ppr.hs +++ b/compiler/nativeGen/SPARC/Ppr.hs @@ -108,15 +108,11 @@ pprGloblDecl platform lbl | otherwise = ptext (sLit ".global ") <> pprCLabel_asm platform lbl pprTypeAndSizeDecl :: Platform -> CLabel -> Doc -#if linux_TARGET_OS pprTypeAndSizeDecl platform lbl - | not (externallyVisibleCLabel lbl) = empty - | otherwise = ptext (sLit ".type ") <> - pprCLabel_asm platform lbl <> ptext (sLit ", @object") -#else -pprTypeAndSizeDecl _ _ - = empty -#endif + | platformOS platform == OSLinux && externallyVisibleCLabel lbl + = ptext (sLit ".type ") <> + pprCLabel_asm platform lbl <> ptext (sLit ", @object") + | otherwise = empty pprLabel :: Platform -> CLabel -> Doc pprLabel platform lbl = pprGloblDecl platform lbl _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
