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

* enabled pushing (x87) fpu registers in case too few might be available

Browse Source 
also for x86_64, since some of those platforms also support the x87
    (noticed by Florian)

git-svn-id: trunk@14338 -
This commit is contained in:
Jonas Maebe 2009-12-05 22:53:27 +00:00
parent 8f3b1e42c0
commit 0e96a159c8
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/ncgadd.pas
View File

@ -85,9 +85,9 @@ interface
procedure tcgaddnode.pass_left_right;
var
tmpreg : tregister;
{$ifdef i386}
{$ifdef x86}
pushedfpu,
{$endif i386}
{$endif x86}
isjump : boolean;
otl,ofl : tasmlabel;
begin
@ -115,7 +115,7 @@ interface
current_procinfo.CurrFalseLabel:=ofl;
end;
{$ifdef i386}
{$ifdef x86}
{ are too few registers free? }
pushedfpu:=false;
if (left.location.loc=LOC_FPUREGISTER) and
@ -124,7 +124,7 @@ interface
location_force_mem(current_asmdata.CurrAsmList,left.location);
pushedfpu:=true;
end;
{$endif i386}
{$endif x86}
isjump:=(right.expectloc=LOC_JUMP);
if isjump then
@ -142,7 +142,7 @@ interface
current_procinfo.CurrTrueLabel:=otl;
current_procinfo.CurrFalseLabel:=ofl;
end;
{$ifdef i386}
{$ifdef x86}
if pushedfpu then
begin
if use_vectorfpu(left.resultdef) then
@ -165,7 +165,7 @@ interface
toggleflag(nf_swapped);
end;
end;
{$endif i386}
{$endif x86}
end;