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

* handle for-loops correctly if the limits contain the counter variable

Browse Source 
git-svn-id: trunk@19918 -
This commit is contained in:
florian 2011-12-30 10:54:08 +00:00
parent 2087ab1508
commit 5defdf86ba
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/optdfa.pas
View File

@ -276,7 +276,7 @@ unit optdfa;
foreachnodestatic(pm_postprocess,twhilerepeatnode(node).left,@AddDefUse,@dfainfo);
end;
{ NB: this node should typically have empty def set }
{ NB: this node should typically have empty def set }
if assigned(node.successor) then
DFASetDiff(l,node.successor.optinfo^.life,node.optinfo^.def)
else if assigned(resultnode) then
@ -344,10 +344,14 @@ unit optdfa;
{ update for node }
{ life:=life+use+body }
l:=copy(node.optinfo^.life);
DFASetIncludeSet(l,node.optinfo^.use);
DFASetIncludeSet(l,tfornode(node).t2.optinfo^.life);
{ the for loop always updates its control variable }
DFASetDiff(l,l,node.optinfo^.def);
{ ... but it could be that left/right use it, so do it after
removing def }
DFASetIncludeSet(l,node.optinfo^.use);
UpdateLifeInfo(node,l);
{ ... and a second iteration for fast convergence }