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

* make no use of int registers in trunc to reduce register pressure

Browse Source 
git-svn-id: trunk@6844 -
This commit is contained in:
florian 2007-03-14 10:23:52 +00:00
parent 840403bcf5
commit bcb1cf0d28
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/x86/nx86inl.pas
View File

@ -310,7 +310,7 @@ implementation
procedure tx86inlinenode.second_trunc_real; procedure tx86inlinenode.second_trunc_real;
var var
href : treference; href : treference;
oldcw : treference; oldcw,newcw : treference;
tempreg : tregister; tempreg : tregister;
begin begin
{ {
@ -328,19 +328,19 @@ implementation
} }
begin begin
tg.GetTemp(current_asmdata.CurrAsmList,2,tt_normal,oldcw); tg.GetTemp(current_asmdata.CurrAsmList,2,tt_normal,oldcw);
tg.GetTemp(current_asmdata.CurrAsmList,2,tt_normal,newcw);
emit_ref(A_FNSTCW,S_NO,newcw);
emit_ref(A_FNSTCW,S_NO,oldcw); emit_ref(A_FNSTCW,S_NO,oldcw);
tempreg:=cg.GetIntRegister(current_asmdata.CurrAsmList,OS_16); emit_const_ref(A_OR,S_W,$0f00,newcw);
cg.a_load_ref_reg(current_asmdata.CurrAsmList,OS_16,OS_16,oldcw,tempreg);
emit_const_ref(A_OR,S_W,$0f00,oldcw);
load_fpu_location; load_fpu_location;
emit_ref(A_FLDCW,S_NO,oldcw); emit_ref(A_FLDCW,S_NO,newcw);
location_reset(location,LOC_REFERENCE,OS_64); location_reset(location,LOC_REFERENCE,OS_64);
tg.GetTempTyped(current_asmdata.CurrAsmList,resultdef,tt_normal,location.reference); tg.GetTempTyped(current_asmdata.CurrAsmList,resultdef,tt_normal,location.reference);
cg.a_load_reg_ref(current_asmdata.CurrAsmList,OS_16,OS_16,tempreg,oldcw);
emit_ref(A_FISTP,S_Q,location.reference); emit_ref(A_FISTP,S_Q,location.reference);
emit_ref(A_FLDCW,S_NO,oldcw); emit_ref(A_FLDCW,S_NO,oldcw);
emit_none(A_FWAIT,S_NO); emit_none(A_FWAIT,S_NO);
tg.UnGetTemp(current_asmdata.CurrAsmList,oldcw); tg.UnGetTemp(current_asmdata.CurrAsmList,oldcw);
tg.UnGetTemp(current_asmdata.CurrAsmList,newcw);
end; end;
end; end;