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

* directly copy the result of set <op> set into the left side of an assignment

Browse Source 
git-svn-id: trunk@47226 -
This commit is contained in:
florian 2020-10-27 21:42:51 +00:00
parent eb4bc9d153
commit 13f1fb60b4
1 changed files with 43 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
compiler/nadd.pas
View File

@ -3272,29 +3272,52 @@ implementation
newstatement : tstatementnode;
temp : ttempcreatenode;
begin
{ add two var sets }
result:=internalstatements(newstatement);
{ directly load the result set into the assignee if possible }
if assigned(aktassignmentnode) and
(aktassignmentnode.right=self) and
(aktassignmentnode.left.resultdef=resultdef) and
valid_for_var(aktassignmentnode.left,false) then
begin
result:=ccallnode.createintern(n,
ccallparanode.create(cordconstnode.create(resultdef.size,sinttype,false),
ccallparanode.create(aktassignmentnode.left.getcopy,
ccallparanode.create(right,
ccallparanode.create(left,nil))))
);
{ create temp for result }
temp:=ctempcreatenode.create(resultdef,resultdef.size,tt_persistent,true);
addstatement(newstatement,temp);
{ remove reused parts from original node }
left:=nil;
right:=nil;
addstatement(newstatement,ccallnode.createintern(n,
ccallparanode.create(cordconstnode.create(resultdef.size,sinttype,false),
ccallparanode.create(ctemprefnode.create(temp),
ccallparanode.create(right,
ccallparanode.create(left,nil)))))
);
include(aktassignmentnode.flags,nf_assign_done_in_right);
firstpass(result);
end
else
begin
{ add two var sets }
result:=internalstatements(newstatement);
{ remove reused parts from original node }
left:=nil;
right:=nil;
{ the last statement should return the value as
location and type, this is done be referencing the
temp and converting it first from a persistent temp to
normal temp }
addstatement(newstatement,ctempdeletenode.create_normal_temp(temp));
addstatement(newstatement,ctemprefnode.create(temp));
{ create temp for result }
temp:=ctempcreatenode.create(resultdef,resultdef.size,tt_persistent,true);
addstatement(newstatement,temp);
addstatement(newstatement,ccallnode.createintern(n,
ccallparanode.create(cordconstnode.create(resultdef.size,sinttype,false),
ccallparanode.create(ctemprefnode.create(temp),
ccallparanode.create(right,
ccallparanode.create(left,nil)))))
);
{ remove reused parts from original node }
left:=nil;
right:=nil;
{ the last statement should return the value as
location and type, this is done be referencing the
temp and converting it first from a persistent temp to
normal temp }
addstatement(newstatement,ctempdeletenode.create_normal_temp(temp));
addstatement(newstatement,ctemprefnode.create(temp));
end;
end;
var