From: Simon Marlow <simonmar@microsoft.com>
Date: Thu, 23 Feb 2006 14:30:13 +0000 (+0000)
Subject: further fix for floating point primitives
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=45252b35151fc55aa19fb6770df5ed8267639083;p=ghc-hetmet.git

further fix for floating point primitives
---

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