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

* add implicit args for FADDP

Browse Source
This commit is contained in:
pierre 2000-05-15 14:11:45 +00:00
parent 9e97eb9e76
commit 5d093dc072
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/ag386nsm.pas
View File

@ -635,6 +635,14 @@ unit ag386nsm;
suffix:=''; suffix:='';
prefix:='';} prefix:='';}
s:=''; s:='';
if (paicpu(hp)^.opcode=A_FADDP) and (paicpu(hp)^.ops=0) then
begin
paicpu(hp)^.ops:=2;
paicpu(hp)^.oper[0].typ:=top_reg;
paicpu(hp)^.oper[0].reg:=R_ST1;
paicpu(hp)^.oper[1].typ:=top_reg;
paicpu(hp)^.oper[1].reg:=R_ST;
end;
if paicpu(hp)^.ops<>0 then if paicpu(hp)^.ops<>0 then
begin begin
if is_calljmp(paicpu(hp)^.opcode) then if is_calljmp(paicpu(hp)^.opcode) then
@ -766,7 +774,10 @@ unit ag386nsm;
end. end.
{ {
$Log$ $Log$
Revision 1.59 2000-05-12 21:26:22 pierre Revision 1.60 2000-05-15 14:11:45 pierre
* add implicit args for FADDP
Revision 1.59 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 !