diff options
| author | simonmar <unknown> | 2005-04-08 10:04:26 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2005-04-08 10:04:26 +0000 |
| commit | 82b583acc592617e68c96accc1145965a8b0cfbe (patch) | |
| tree | a6fa6ad83197b0c18c576e8a09899f1e8cd7437e /ghc/compiler/nativeGen/PprMach.hs | |
| parent | aff2e3f0c86af7f6cfbda20b672e9172c439ad55 (diff) | |
| download | haskell-82b583acc592617e68c96accc1145965a8b0cfbe.tar.gz | |
[project @ 2005-04-08 10:04:26 by simonmar]
fix breakage in i386 native codegen
Diffstat (limited to 'ghc/compiler/nativeGen/PprMach.hs')
| -rw-r--r-- | ghc/compiler/nativeGen/PprMach.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/nativeGen/PprMach.hs b/ghc/compiler/nativeGen/PprMach.hs index 51f5f47162..d1f72f11ea 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 |