From 45252b35151fc55aa19fb6770df5ed8267639083 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 23 Feb 2006 14:30:13 +0000 Subject: [PATCH] further fix for floating point primitives --- ghc/compiler/nativeGen/MachCodeGen.hs | 13 ++----------- 1 file changed, 2 insertions(+), 11 deletions(-) diff --git a/ghc/compiler/nativeGen/MachCodeGen.hs b/ghc/compiler/nativeGen/MachCodeGen.hs index 32dad13..8fcbbff 100644 --- a/ghc/compiler/nativeGen/MachCodeGen.hs +++ b/ghc/compiler/nativeGen/MachCodeGen.hs @@ -3078,19 +3078,10 @@ outOfLineFloatOp mop res args vols let tmp = CmmLocal (LocalReg uq F64) -- in - code1 <- stmtToInstrs (CmmCall target [(tmp,FloatHint)] - (map promote args) vols) - code2 <- stmtToInstrs (CmmAssign res (demote (CmmReg tmp))) + code1 <- stmtToInstrs (CmmCall target [(tmp,FloatHint)] args vols) + code2 <- stmtToInstrs (CmmAssign res (CmmReg tmp)) return (code1 `appOL` code2) where -#if i386_TARGET_ARCH - promote (x,hint) = (CmmMachOp (MO_S_Conv F32 F64) [x], hint) - demote x = CmmMachOp (MO_S_Conv F64 F32) [x] -#else - promote (x,hint) = (x,hint) - demote x = x -#endif - lbl = mkForeignLabel fn Nothing True fn = case mop of -- 1.7.10.4