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

* Load double-precision locations from integer registers directly into cgpara if sizes match and destination has a single location.

Browse Source 
git-svn-id: trunk@28102 -
This commit is contained in:
sergei 2014-06-30 17:50:34 +00:00
parent b91d965096
commit 847adff94d
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/hlcg2ll.pas
View File

@ -1410,10 +1410,16 @@ implementation
by typecasting an int64 constant to a record of 8 bytes }
if locsize = OS_F64 then
begin
tmploc:=l;
location_force_mem(list,tmploc,size);
cg.a_load_loc_cgpara(list,tmploc,cgpara);
location_freetemp(list,tmploc);
if (cgpara.Location^.Next=nil) and (l.size in [OS_64,OS_S64]) and
(cgpara.size in [OS_64,OS_S64]) then
cg64.a_load64_reg_cgpara(list,l.register64,cgpara)
else
begin
tmploc:=l;
location_force_mem(list,tmploc,size);
cg.a_load_loc_cgpara(list,tmploc,cgpara);
location_freetemp(list,tmploc);
end;
end
else
{$endif not cpu64bitalu}