diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-10-23 22:49:26 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-10-23 22:49:26 +0100 |
| commit | cc7871014b480531f0737508bf642df9bcc519d6 (patch) | |
| tree | 19550061f30add29d214e2e239fff2e121dbc806 /compiler/nativeGen | |
| parent | 1f52e5fd15476cdc095e5ec195d4be96a179dea0 (diff) | |
| download | haskell-cc7871014b480531f0737508bf642df9bcc519d6.tar.gz | |
Remove unused IF_OS_* CPP definitions
Diffstat (limited to 'compiler/nativeGen')
| -rw-r--r-- | compiler/nativeGen/NCG.h | 14 | ||||
| -rw-r--r-- | compiler/nativeGen/PPC/Ppr.hs | 8 |
2 files changed, 4 insertions, 18 deletions
diff --git a/compiler/nativeGen/NCG.h b/compiler/nativeGen/NCG.h index 81cbf612dc..ad87a678d6 100644 --- a/compiler/nativeGen/NCG.h +++ b/compiler/nativeGen/NCG.h @@ -13,22 +13,8 @@ #define COMMA , --- - - - - - - - - - - - - - - - - - - - - - #if i386_TARGET_ARCH # define IF_ARCH_i386(x,y) x #else # define IF_ARCH_i386(x,y) y #endif --- - - - - - - - - - - - - - - - - - - - - - -#if linux_TARGET_OS -# define IF_OS_linux(x,y) x -#else -# define IF_OS_linux(x,y) y -#endif --- - - - - - - - - - - - - - - - - - - - - - -#if darwin_TARGET_OS -# define IF_OS_darwin(x,y) x -#else -# define IF_OS_darwin(x,y) y -#endif -#endif diff --git a/compiler/nativeGen/PPC/Ppr.hs b/compiler/nativeGen/PPC/Ppr.hs index 9de671e31f..a2797a403a 100644 --- a/compiler/nativeGen/PPC/Ppr.hs +++ b/compiler/nativeGen/PPC/Ppr.hs @@ -318,10 +318,10 @@ pprInstr :: Platform -> Instr -> Doc pprInstr _ (COMMENT _) = empty -- nuke 'em {- -pprInstr _ (COMMENT s) - IF_OS_linux( - ((<>) (ptext (sLit "# ")) (ftext s)), - ((<>) (ptext (sLit "; ")) (ftext s))) +pprInstr platform (COMMENT s) = + if platformOS platform == OSLinux + then ptext (sLit "# ") <> ftext s + else ptext (sLit "; ") <> ftext s -} pprInstr platform (DELTA d) = pprInstr platform (COMMENT (mkFastString ("\tdelta = " ++ show d))) |