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

* avoid some superfluous memory accesses when converting a double

Browse Source 
precision/comp value in an fpu register to an sse value

git-svn-id: trunk@9420 -
This commit is contained in:
Jonas Maebe 2007-12-08 22:59:24 +00:00
parent b20652821d
commit 91e0e5db17
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ncgcnv.pas
View File

@ -272,6 +272,10 @@ interface
procedure tcgtypeconvnode.second_real_to_real;
{$ifdef x86}
var
tr: treference;
{$endif x86}
begin
location_reset(location,expectloc,def_cgsize(resultdef));
{$ifdef x86}
@ -284,8 +288,10 @@ interface
if (left.location.loc in [LOC_CREFERENCE,LOC_REFERENCE]) then
location_force_fpureg(current_asmdata.CurrAsmList,left.location,false);
{ round them down to the proper precision }
cg.a_loadfpu_reg_reg(current_asmdata.CurrAsmList,left.location.size,location.size,left.location.register,left.location.register);
left.location.size:=location.size;
tg.gettemp(current_asmdata.currasmlist,resultdef.size,tt_normal,tr);
cg.a_loadfpu_reg_ref(current_asmdata.CurrAsmList,left.location.size,location.size,left.location.register,tr);
location_reset(left.location,LOC_REFERENCE,location.size);
left.location.reference:=tr;
end;
{$endif x86}
case left.location.loc of