[project @ 2005-04-08 10:04:26 by simonmar]

[ghc-hetmet.git] / ghc / compiler / nativeGen / PprMach.hs

diff --git a/ghc/compiler/nativeGen/PprMach.hs b/ghc/compiler/nativeGen/PprMach.hs
index 51f5f47..d1f72f1 100644 (file)
--- 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