paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-07-28 19:46:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

* propagate life info properly

Browse Source
This commit is contained in:
florian 2022-11-15 22:06:38 +01:00
parent 94368d06ee
commit a27cb35fa8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/optdfa.pas
View File

@ -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: