paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-26 12:27:20 +01:00
Code Issues Packages Projects Releases Wiki Activity

* FADD without operand translated into FADDP

Browse Source
This commit is contained in:
pierre 2000-05-15 14:08:49 +00:00
parent 04104f3b5f
commit 24e5f16174
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/ra386.pas
View File

@ -384,6 +384,16 @@ begin
siz:=operands[Ops]^.size; siz:=operands[Ops]^.size;
end; 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:=new(paicpu,op_none(opcode,siz));
ai^.Ops:=Ops; ai^.Ops:=Ops;
for i:=1to Ops do for i:=1to Ops do
@ -414,7 +424,10 @@ end;
end. end.
{ {
$Log$ $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 * fix the FDIV FDIVR FSUB FSUBR and popping equivalent
simply by swapping from reverse to normal and vice-versa simply by swapping from reverse to normal and vice-versa
when passing from one syntax to the other ! when passing from one syntax to the other !