diff options
| author | Ian Lynagh <igloo@earth.li> | 2009-02-06 15:12:03 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2009-02-06 15:12:03 +0000 |
| commit | 4c4f9f5c24780e368d54be6f8ccfbdfe1ee03554 (patch) | |
| tree | 65583b0998c0f21100f1223e070b8521733b9145 /compiler/nativeGen/PprMach.hs | |
| parent | 3710a4ef1ca665fe4ed705a6b0f4400d680c7b54 (diff) | |
| download | haskell-4c4f9f5c24780e368d54be6f8ccfbdfe1ee03554.tar.gz | |
Fix the build on OS X: only understands .space, not .skip
Diffstat (limited to 'compiler/nativeGen/PprMach.hs')
| -rw-r--r-- | compiler/nativeGen/PprMach.hs | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/compiler/nativeGen/PprMach.hs b/compiler/nativeGen/PprMach.hs index 55e3930786..88a8f3fce5 100644 --- a/compiler/nativeGen/PprMach.hs +++ b/compiler/nativeGen/PprMach.hs @@ -693,7 +693,13 @@ pprData :: CmmStatic -> Doc pprData (CmmAlign bytes) = pprAlign bytes pprData (CmmDataLabel lbl) = pprLabel lbl pprData (CmmString str) = pprASCII str -pprData (CmmUninitialised bytes) = ptext (sLit ".skip ") <> int bytes +pprData (CmmUninitialised bytes) = ptext (sLit s) <> int bytes + where s = +#if defined(solaris2_TARGET_OS) + ".skip " +#else + ".space " +#endif pprData (CmmStaticLit lit) = pprDataItem lit pprGloblDecl :: CLabel -> Doc |