paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 15:49:26 +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;
var
href : treference;
oldcw : treference;
oldcw,newcw : treference;
tempreg : tregister;
begin
{
@ -328,19 +328,19 @@ implementation
}
begin
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);
tempreg:=cg.GetIntRegister(current_asmdata.CurrAsmList,OS_16);
cg.a_load_ref_reg(current_asmdata.CurrAsmList,OS_16,OS_16,oldcw,tempreg);
emit_const_ref(A_OR,S_W,$0f00,oldcw);
emit_const_ref(A_OR,S_W,$0f00,newcw);
load_fpu_location;
emit_ref(A_FLDCW,S_NO,oldcw);
emit_ref(A_FLDCW,S_NO,newcw);
location_reset(location,LOC_REFERENCE,OS_64);
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_FLDCW,S_NO,oldcw);
emit_none(A_FWAIT,S_NO);
tg.UnGetTemp(current_asmdata.CurrAsmList,oldcw);
tg.UnGetTemp(current_asmdata.CurrAsmList,newcw);
end;
end;