projects / ghc-hetmet.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: aff2e3f)
[project @ 2005-04-08 10:04:26 by simonmar]
authorsimonmar <unknown>
Fri, 8 Apr 2005 10:04:26 +0000 (10:04 +0000)
committersimonmar <unknown>
Fri, 8 Apr 2005 10:04:26 +0000 (10:04 +0000)
fix breakage in i386 native codegen

ghc/compiler/nativeGen/PprMach.hs patch | blob | history

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
Glasgow Haskell Compiler with heterogeneous metaprogramming (generalized arrows and modal types)