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

* the right side of a concatenation of multiple ShortString values can directly pass any String[x] to the utility routine, because only the Length() is used, not High() and nothing is modified (also typed pointers must not be used for them); this allows for better code generation for strings with a maximum length < 255

Browse Source
This commit is contained in:
Sven/Sarah Barth 2022-10-11 07:36:20 +02:00
parent 3e181d7640
commit bb51ac77dd
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/nopt.pas
View File

@ -320,18 +320,19 @@ begin
while assigned(hp) and (hp.nodetype=addn) do
begin
sn:=taddnode(hp).right.getcopy;
inserttypeconv(sn,p.resultdef);
if not is_shortstr or not is_shortstring(sn.resultdef) then
inserttypeconv(sn,p.resultdef);
if is_shortstr then
begin
sn:=caddrnode.create(sn);
include(taddrnode(sn).addrnodeflags,anf_typedaddr);
include(sn.flags,nf_internal);
end;
arrp:=carrayconstructornode.create(sn,arrp);
hp:=taddnode(hp).left;
end;
sn:=hp.getcopy;
inserttypeconv(sn,p.resultdef);
if not is_shortstr or not is_shortstring(sn.resultdef) then
inserttypeconv(sn,p.resultdef);
if is_shortstr then
begin
sn:=caddrnode.create(sn);