From: Ben.Lippmeier@anu.edu.au <unknown>
Date: Sun, 15 Feb 2009 07:32:34 +0000 (+0000)
Subject: NCG: validate fixes for i386-darwin
X-Git-Tag: 2009-03-13~72
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=caf23cc69ad53481e8357b3cf0e37fdea3d0e05a;p=ghc-hetmet.git

NCG: validate fixes for i386-darwin
---

diff --git a/compiler/nativeGen/X86/Ppr.hs b/compiler/nativeGen/X86/Ppr.hs
index bdbeebd..4881062 100644
--- a/compiler/nativeGen/X86/Ppr.hs
+++ b/compiler/nativeGen/X86/Ppr.hs
@@ -43,7 +43,9 @@ import Outputable	(panic, Outputable)
 
 import Data.Word
 
-
+#if i386_TARGET_ARCH && darwin_TARGET_OS
+import Data.Bits
+#endif
 
 -- -----------------------------------------------------------------------------
 -- Printing this stuff out
@@ -96,7 +98,13 @@ pprData :: CmmStatic -> Doc
 pprData (CmmAlign bytes)         = pprAlign bytes
 pprData (CmmDataLabel lbl)       = pprLabel lbl
 pprData (CmmString str)          = pprASCII str
+
+#if  darwin_TARGET_OS
+pprData (CmmUninitialised bytes) = ptext (sLit ".space ") <> int bytes
+#else
 pprData (CmmUninitialised bytes) = ptext (sLit ".skip ") <> int bytes
+#endif
+
 pprData (CmmStaticLit lit)       = pprDataItem lit
 
 pprGloblDecl :: CLabel -> Doc