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

Merged revisions 3129 via svnmerge from

Browse Source 
http://svn.freepascal.org/svn/fpc/trunk

........
r3129 | florian | 2006-04-02 22:36:20 +0200 (So, 02 Apr 2006) | 2 lines

* fixed left_and_right_must_be_fpureg

........

git-svn-id: branches/fixes_2_0@3884 -
This commit is contained in:
florian 2006-06-17 19:43:06 +00:00
parent 06ba1b60b9
commit 10afb4fb6e
1 changed files with 5 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/x86/nx86add.pas
View File

@ -215,28 +215,16 @@ unit nx86add;
begin
if (right.location.loc<>LOC_FPUREGISTER) then
begin
cg.a_loadfpu_loc_reg(exprasmlist,right.location,NR_ST);
if (right.location.loc <> LOC_CFPUREGISTER) then
location_freetemp(exprasmlist,left.location);
location_force_fpureg(exprasmlist,right.location,false);
if (left.location.loc<>LOC_FPUREGISTER) then
begin
cg.a_loadfpu_loc_reg(exprasmlist,left.location,NR_ST);
if (left.location.loc <> LOC_CFPUREGISTER) then
location_freetemp(exprasmlist,left.location);
end
location_force_fpureg(exprasmlist,left.location,false)
else
begin
{ left was on the stack => swap }
toggleflag(nf_swaped);
end;
{ left was on the stack => swap }
toggleflag(nf_swaped);
end
{ the nominator in st0 }
else if (left.location.loc<>LOC_FPUREGISTER) then
begin
cg.a_loadfpu_loc_reg(exprasmlist,left.location,NR_ST);
if (left.location.loc <> LOC_CFPUREGISTER) then
location_freetemp(exprasmlist,left.location);
end
location_force_fpureg(exprasmlist,left.location,false)
else
begin
{ fpu operands are always in the wrong order on the stack }