mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-25 01:45:58 +02:00
* propagate life info properly
This commit is contained in:
parent
94368d06ee
commit
a27cb35fa8
@ -414,8 +414,8 @@ unit optdfa;
|
|||||||
begin
|
begin
|
||||||
{ nested statement }
|
{ nested statement }
|
||||||
CreateInfo(tstatementnode(node).statement);
|
CreateInfo(tstatementnode(node).statement);
|
||||||
{ inherit info }
|
{ propagate info }
|
||||||
node.optinfo^.life:=tstatementnode(node).statement.optinfo^.life;
|
node.optinfo^.life:=tstatementnode(node).successor.optinfo^.life;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
blockn:
|
blockn:
|
||||||
|
Loading…
Reference in New Issue
Block a user