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

* don't use 'fnstsw ax' if the current cpu level is below 286

Browse Source 
git-svn-id: trunk@24401 -
This commit is contained in:
nickysn 2013-05-01 15:42:02 +00:00
parent 19c8abac0b
commit 4c95592e08
1 changed files with 22 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/x86/nx86add.pas
View File

@ -953,6 +953,9 @@ unit nx86add;
procedure tx86addnode.second_cmpfloat; procedure tx86addnode.second_cmpfloat;
var var
resflags : tresflags; resflags : tresflags;
{$ifdef i8086}
tmpref: treference;
{$endif i8086}
begin begin
if use_vectorfpu(left.resultdef) or use_vectorfpu(right.resultdef) then if use_vectorfpu(left.resultdef) or use_vectorfpu(right.resultdef) then
begin begin
@ -971,10 +974,25 @@ unit nx86add;
tcgx86(cg).dec_fpu_stack; tcgx86(cg).dec_fpu_stack;
{ load fpu flags } { load fpu flags }
cg.getcpuregister(current_asmdata.CurrAsmList,NR_AX); {$ifdef i8086}
emit_reg(A_FNSTSW,S_NO,NR_AX); if current_settings.cputype < cpu_286 then
emit_none(A_SAHF,S_NO); begin
cg.ungetcpuregister(current_asmdata.CurrAsmList,NR_AX); tg.gettemp(current_asmdata.CurrAsmList,2,2,tt_normal,tmpref);
emit_ref(A_FNSTSW,S_NO,tmpref);
cg.getcpuregister(current_asmdata.CurrAsmList,NR_AX);
emit_ref_reg(A_MOV,S_W,tmpref,NR_AX);
emit_none(A_SAHF,S_NO);
cg.ungetcpuregister(current_asmdata.CurrAsmList,NR_AX);
tg.ungettemp(current_asmdata.CurrAsmList,tmpref);
end
else
{$endif i8086}
begin
cg.getcpuregister(current_asmdata.CurrAsmList,NR_AX);
emit_reg(A_FNSTSW,S_NO,NR_AX);
emit_none(A_SAHF,S_NO);
cg.ungetcpuregister(current_asmdata.CurrAsmList,NR_AX);
end;
if nf_swapped in flags then if nf_swapped in flags then
begin begin
case nodetype of case nodetype of