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

* fix life information of for nodes

Browse Source 
git-svn-id: trunk@25972 -
This commit is contained in:
florian 2013-11-06 21:10:50 +00:00
parent 31f3bb900c
commit 1e4737c46d
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/optdfa.pas
View File

@ -341,10 +341,13 @@ unit optdfa;
{ create life for the body }
CreateInfo(tfornode(node).t2);
{ update for node }
{ life:=life+body }
l:=copy(node.optinfo^.life);
DFASetIncludeSet(l,tfornode(node).t2.optinfo^.life);
{ expect a blocknode as body because we need to push the life information
of the counter variable into it }
if tfornode(node).t2.nodetype<>blockn then
internalerror(2013110201);
{ first update the body }
l:=copy(tfornode(node).t2.optinfo^.life);
{ take care of the sucessor as it's possible that we don't have one execution of the body }
DFASetIncludeSet(l,node.successor.optinfo^.life);
@ -355,6 +358,12 @@ unit optdfa;
{ force block node life info }
UpdateLifeInfo(tfornode(node).t2,l);
{ avoid to modify the life information set above for t2 }
l:=copy(l);
{ update l for the for node itself }
DFASetIncludeSet(l,tfornode(node).t2.optinfo^.life);
{ the counter variable is not living at the entry of the for node }
DFASetExclude(l,tfornode(node).left.optinfo^.index);