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

* optimize shortstring concatenations if they're on the right side of an assignment to directly use the left side instead of a temporary

Browse Source
This commit is contained in:
Sven/Sarah Barth 2022-10-09 13:20:14 +02:00
parent 32261a0f6d
commit 02aac653d2
2 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/nadd.pas
View File

@ -3382,7 +3382,13 @@ implementation
{ create the call to the concat routine both strings as arguments } { create the call to the concat routine both strings as arguments }
if assigned(aktassignmentnode) and if assigned(aktassignmentnode) and
(aktassignmentnode.right=self) and (aktassignmentnode.right=self) and
(aktassignmentnode.left.resultdef=resultdef) and (
(aktassignmentnode.left.resultdef=resultdef) or
(
is_shortstring(aktassignmentnode.left.resultdef) and
is_shortstring(resultdef)
)
) and
valid_for_var(aktassignmentnode.left,false) then valid_for_var(aktassignmentnode.left,false) then
begin begin
para:=ccallparanode.create( para:=ccallparanode.create(

8
compiler/nopt.pas
View File

@ -341,7 +341,13 @@ begin
arrp.allow_array_constructor:=true; arrp.allow_array_constructor:=true;
if assigned(aktassignmentnode) and if assigned(aktassignmentnode) and
(aktassignmentnode.right=p) and (aktassignmentnode.right=p) and
(aktassignmentnode.left.resultdef=p.resultdef) and (
(aktassignmentnode.left.resultdef=p.resultdef) or
(
is_shortstring(aktassignmentnode.left.resultdef) and
is_shortstring(p.resultdef)
)
) and
valid_for_var(aktassignmentnode.left,false) then valid_for_var(aktassignmentnode.left,false) then
begin begin
para:=ccallparanode.create( para:=ccallparanode.create(