From 4ddd2cf7a0bb81ae4d19f74139ae9df548961a39 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 5 Apr 2005 15:51:26 +0000
Subject: [PATCH] [project @ 2005-04-05 15:51:26 by simonmar] x86_64: fix
 brainos in implementation of fl. pt. negation

---
 ghc/compiler/nativeGen/MachCodeGen.hs |    6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/ghc/compiler/nativeGen/MachCodeGen.hs b/ghc/compiler/nativeGen/MachCodeGen.hs
index 4b4907a..f782577 100644
--- a/ghc/compiler/nativeGen/MachCodeGen.hs
+++ b/ghc/compiler/nativeGen/MachCodeGen.hs
@@ -869,9 +869,10 @@ getRegister (CmmMachOp (MO_S_Conv I32 I64) [CmmLoad addr _]) = do
 
 #if x86_64_TARGET_ARCH
 getRegister (CmmMachOp (MO_S_Neg F32) [x]) = do
+  x_code <- getAnyReg x
   lbl <- getNewLabelNat
   let
-    code dst = toOL [
+    code dst = x_code dst `appOL` toOL [
 	-- This is how gcc does it, so it can't be that bad:
 	LDATA ReadOnlyData16 [
 		CmmAlign 16,
@@ -889,10 +890,11 @@ getRegister (CmmMachOp (MO_S_Neg F32) [x]) = do
   return (Any F32 code)
 
 getRegister (CmmMachOp (MO_S_Neg F64) [x]) = do
+  x_code <- getAnyReg x
   lbl <- getNewLabelNat
   let
 	-- This is how gcc does it, so it can't be that bad:
-    code dst = toOL [
+    code dst = x_code dst `appOL` toOL [
 	LDATA ReadOnlyData16 [
 		CmmAlign 16,
 		CmmDataLabel lbl,
-- 
1.7.10.4