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

* append optimization also for constant strings

Browse Source 
git-svn-id: trunk@1950 -
This commit is contained in:
peter 2005-12-14 17:23:50 +00:00
parent 198aa2e72a
commit 24d972c012
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/nld.pas
View File

@ -521,9 +521,10 @@ implementation
{ opportunity quite difficult to detect (JM) } { opportunity quite difficult to detect (JM) }
resulttypepass(tbinarynode(right).left); resulttypepass(tbinarynode(right).left);
resulttypepass(tbinarynode(right).right); resulttypepass(tbinarynode(right).right);
if (is_char(tbinarynode(right).right.resulttype.def) or if (tbinarynode(right).right.nodetype=stringconstn) or
is_char(tbinarynode(right).right.resulttype.def) or
is_shortstring(tbinarynode(right).right.resulttype.def) or is_shortstring(tbinarynode(right).right.resulttype.def) or
is_ansistring(tbinarynode(right).right.resulttype.def)) then is_ansistring(tbinarynode(right).right.resulttype.def) then
begin begin
{ remove property flag so it'll not trigger an error } { remove property flag so it'll not trigger an error }
exclude(left.flags,nf_isproperty); exclude(left.flags,nf_isproperty);