From: Ian Lynagh <igloo@earth.li>
Date: Fri, 6 Feb 2009 15:12:03 +0000 (+0000)
Subject: Fix the build on OS X: only understands .space, not .skip
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=4c4f9f5c24780e368d54be6f8ccfbdfe1ee03554;p=ghc-hetmet.git

Fix the build on OS X: only understands .space, not .skip
---

diff --git a/compiler/nativeGen/PprMach.hs b/compiler/nativeGen/PprMach.hs
index 55e3930..88a8f3f 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