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

+ do constant propagation into arguments of inline nodes if possible

Browse Source 
+ do constant propagation into inc/dec nodes, if the node being identified as constant, is inc'ed/dec'ed

git-svn-id: trunk@34794 -
This commit is contained in:
florian 2016-11-05 23:05:53 +00:00
parent 000cffa8e3
commit 6b84a1e1b8
1 changed files with 23 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
compiler/optconstprop.pas
View File

@ -58,7 +58,7 @@ unit optconstprop;
fmodule,
pass_1,procinfo,
symsym, symconst,
nutils, nbas, ncnv, nld, nflw, ncal;
nutils, nbas, ncnv, nld, nflw, ncal, ninl;
function check_written(var n: tnode; arg: pointer): foreachnoderesult;
begin
@ -192,17 +192,34 @@ unit optconstprop;
end;
end;
end
else if n.nodetype in [calln,inlinen] then
else if n.nodetype=inlinen then
begin
if might_have_sideeffects(n) and (n.nodetype=inlinen) then
exit(false);
if n.nodetype=calln then
{ 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
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 }
oldnode:=n;
n:=tinlinenode(n).getaddsub_for_incdec;
oldnode.free;
tree_modified:=true;
{ do not continue, value changed, if further const. propagations are possible, this is done
by the next pass }
result:=false;
exit;
end;
end
else if might_have_sideeffects(n) then
exit(false);
replaceBasicAssign(tunarynode(n).left, arg, tree_modified);
result:=false;
end
else if n.nodetype=calln then
exit(false)
else if n.InheritsFrom(tbinarynode) then
begin
result:=replaceBasicAssign(tbinarynode(n).left, arg, tree_modified);