From 24e5f161747809453b6df5f15d89ac49fe8452a8 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 15 May 2000 14:08:49 +0000
Subject: [PATCH]  * FADD without operand translated into FADDP

---
 compiler/ra386.pas | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/compiler/ra386.pas b/compiler/ra386.pas
index 9cffcfd16d..298c5f8fc6 100644
--- a/compiler/ra386.pas
+++ b/compiler/ra386.pas
@@ -384,6 +384,16 @@ begin
       siz:=operands[Ops]^.size;
    end;
 
+   { NASM does not support FADD without args
+     as alias of FADDP
+     and GNU AS interprets FADD without operand differently
+     for version 2.9.1 and 2.9.5 !! }
+   if (opcode=A_FADD) and (ops=0) then
+     begin
+       opcode:=A_FADDP;
+       message(asmr_w_fadd_to_faddp);
+     end;
+
   ai:=new(paicpu,op_none(opcode,siz));
   ai^.Ops:=Ops;
   for i:=1to Ops do
@@ -414,7 +424,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.17  2000-05-12 21:26:22  pierre
+  Revision 1.18  2000-05-15 14:08:49  pierre
+   * FADD without operand translated into FADDP
+
+  Revision 1.17  2000/05/12 21:26:22  pierre
     * fix the FDIV FDIVR FSUB FSUBR and popping equivalent
       simply by swapping from reverse to normal and vice-versa
       when passing from one syntax to the other !