diff options
| -rw-r--r-- | 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 e25ecd57b0..4f7e264787 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 |