diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-10-15 00:27:33 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-10-15 00:27:33 +0100 |
| commit | e94e97a134612e53ff8f5ce71914f8e7361a654a (patch) | |
| tree | a57c7fa69014450ca8dcabcc4a0fc549d79647a9 /compiler | |
| parent | 2e77595f091b7f6a1f4db7dc7d9d3fbcb5402bc2 (diff) | |
| download | haskell-e94e97a134612e53ff8f5ce71914f8e7361a654a.tar.gz | |
Remove some CPP from nativeGen/SPARC/Ppr.hs
Diffstat (limited to 'compiler')
| -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 |