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

+ enable constant propagation across 2-parameter inc()/dec() calls

Browse Source 
git-svn-id: trunk@35962 -
This commit is contained in:
nickysn 2017-04-26 23:21:44 +00:00
parent 012153201a
commit 8512f8240e
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/optconstprop.pas
View File

@ -197,8 +197,9 @@ unit optconstprop;
{ constant inc'ed/dec'ed? }
if (tinlinenode(n).inlinenumber=in_dec_x) or (tinlinenode(n).inlinenumber=in_inc_x) then
begin
if not(assigned(tcallparanode(tinlinenode(n).left).right)) and
tnode(tassignmentnode(arg).left).isequal(tcallparanode(tinlinenode(n).left).left) then
if tnode(tassignmentnode(arg).left).isequal(tcallparanode(tinlinenode(n).left).left) and
(not(assigned(tcallparanode(tinlinenode(n).left).right)) or
(tcallparanode(tcallparanode(tinlinenode(n).left).right).left.nodetype=ordconstn)) then
begin
{ if the node just being searched is inc'ed/dec'ed then replace the inc/dec
by add/sub and force a second replacement pass }