From: simonmar <unknown>
Date: Fri, 8 Apr 2005 10:04:26 +0000 (+0000)
Subject: [project @ 2005-04-08 10:04:26 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~777
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=82b583acc592617e68c96accc1145965a8b0cfbe;p=ghc-hetmet.git

[project @ 2005-04-08 10:04:26 by simonmar]
fix breakage in i386 native codegen
---

diff --git a/ghc/compiler/nativeGen/PprMach.hs b/ghc/compiler/nativeGen/PprMach.hs
index 51f5f47..d1f72f1 100644
--- a/ghc/compiler/nativeGen/PprMach.hs
+++ b/ghc/compiler/nativeGen/PprMach.hs
@@ -386,8 +386,8 @@ pprSize x = ptext (case x of
 	I64  -> SLIT("q")
 #endif
 #if i386_TARGET_ARCH
-	F32  -> SLIT("l")
-	F64  -> SLIT("q")
+	F32  -> SLIT("s")
+	F64  -> SLIT("l")
 	F80  -> SLIT("t")
 #endif
 #if x86_64_TARGET_ARCH