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

* improve is_loop_invariant for load nodes

Browse Source 
git-svn-id: trunk@44252 -
This commit is contained in:
florian 2020-02-29 21:15:15 +00:00
parent 507fc9c1ff
commit ac974c9ab7
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/optloop.pas
View File

@ -262,9 +262,10 @@ unit optloop;
begin begin
if (pi_dfaavailable in current_procinfo.flags) and if (pi_dfaavailable in current_procinfo.flags) and
assigned(loop.optinfo) and assigned(loop.optinfo) and
assigned(expr.optinfo) then assigned(expr.optinfo) and
not(expr.isequal(tfornode(loop).left)) then
{ no aliasing? } { no aliasing? }
result:=not(tabstractvarsym(tloadnode(expr).symtableentry).addr_taken) and result:=(([nf_write,nf_modify]*expr.flags)=[]) and not(tabstractvarsym(tloadnode(expr).symtableentry).addr_taken) and
{ no definition in the loop? } { no definition in the loop? }
not(DFASetIn(tfornode(loop).t2.optinfo^.defsum,expr.optinfo^.index)); not(DFASetIn(tfornode(loop).t2.optinfo^.defsum,expr.optinfo^.index));
end; end;