Browse Source

* propagate life info properly

florian 2 years ago
parent
commit
a27cb35fa8
1 changed files with 2 additions and 2 deletions
  1. 2 2
      compiler/optdfa.pas

+ 2 - 2
compiler/optdfa.pas

@@ -414,8 +414,8 @@ unit optdfa;
               begin
               begin
                 { nested statement }
                 { nested statement }
                 CreateInfo(tstatementnode(node).statement);
                 CreateInfo(tstatementnode(node).statement);
-                { inherit info }
-                node.optinfo^.life:=tstatementnode(node).statement.optinfo^.life;
+                { propagate info }
+                node.optinfo^.life:=tstatementnode(node).successor.optinfo^.life;
               end;
               end;
 
 
             blockn:
             blockn: