diff options
Diffstat (limited to 'compiler/nativeGen/SPARC/CodeGen/CondCode.hs')
| -rw-r--r-- | compiler/nativeGen/SPARC/CodeGen/CondCode.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/nativeGen/SPARC/CodeGen/CondCode.hs b/compiler/nativeGen/SPARC/CodeGen/CondCode.hs index cb10830f46..e5fb82df4d 100644 --- a/compiler/nativeGen/SPARC/CodeGen/CondCode.hs +++ b/compiler/nativeGen/SPARC/CodeGen/CondCode.hs @@ -14,7 +14,7 @@ import SPARC.Cond import SPARC.Imm import SPARC.Base import NCGMonad -import Size +import Format import Cmm @@ -98,7 +98,7 @@ condFltCode cond x y = do code__2 = if pk1 `cmmEqType` pk2 then code1 `appOL` code2 `snocOL` - FCMP True (cmmTypeSize pk1) src1 src2 + FCMP True (cmmTypeFormat pk1) src1 src2 else if typeWidth pk1 == W32 then code1 `snocOL` promote src1 `appOL` code2 `snocOL` FCMP True FF64 tmp src2 |