diff options
| author | Ben.Lippmeier@anu.edu.au <unknown> | 2009-01-20 07:15:36 +0000 |
|---|---|---|
| committer | Ben.Lippmeier@anu.edu.au <unknown> | 2009-01-20 07:15:36 +0000 |
| commit | 6822f86c440bece1fc053336a75dac264325d077 (patch) | |
| tree | 6feae8ca73be26cc5b5f675a5cbc40fea8dfbd67 /compiler/nativeGen/PprMach.hs | |
| parent | 0df5099f0c2088e2ccbb5b8974a7eae4d77eaa1c (diff) | |
| download | haskell-6822f86c440bece1fc053336a75dac264325d077.tar.gz | |
SPARC NCG: Fix generation of 64 bit ops on 32 bit sparc
Diffstat (limited to 'compiler/nativeGen/PprMach.hs')
| -rw-r--r-- | compiler/nativeGen/PprMach.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/nativeGen/PprMach.hs b/compiler/nativeGen/PprMach.hs index 199fd36498..2da4b358d0 100644 --- a/compiler/nativeGen/PprMach.hs +++ b/compiler/nativeGen/PprMach.hs @@ -21,7 +21,7 @@ module PprMach ( pprNatCmmTop, pprBasicBlock, pprSectionHeader, pprData, - pprInstr, pprSize, pprUserReg + pprInstr, pprSize, pprUserReg, pprImm ) where #include "HsVersions.h" @@ -2083,6 +2083,7 @@ pprInstr (FxTOy size1 size2 reg1 reg2) ptext (case size2 of II32 -> sLit "i\t" + II64 -> sLit "x\t" FF32 -> sLit "s\t" FF64 -> sLit "d\t"), pprReg reg1, comma, pprReg reg2 |