diff --git a/compiler/optdfa.pas b/compiler/optdfa.pas
index cc845ee39b..bc04cffa48 100644
--- a/compiler/optdfa.pas
+++ b/compiler/optdfa.pas
@@ -595,7 +595,7 @@ unit optdfa;
         if not(assigned(nodemap)) then
           nodemap:=TIndexedNodeSet.Create;
         { add controll flow information }
-        SetNodeSucessors(node);
+        SetNodeSucessors(node,resultnode);
         { now, collect life information }
         CreateLifeInfo(node,nodemap);
       end;
diff --git a/compiler/optutils.pas b/compiler/optutils.pas
index 72552c54c1..90b56d7254 100644
--- a/compiler/optutils.pas
+++ b/compiler/optutils.pas
@@ -38,7 +38,7 @@ unit optutils;
         function Remove(node : tnode) : boolean;
       end;
 
-    procedure SetNodeSucessors(p : tnode);
+    procedure SetNodeSucessors(p,last : tnode);
     procedure PrintDFAInfo(var f : text;p : tnode);
     procedure PrintIndexedNodeSet(var f : text;s : TIndexedNodeSet);
     { determines the optinfo.defsum field for the given node
@@ -141,7 +141,7 @@ unit optutils;
       end;
 
 
-    procedure SetNodeSucessors(p : tnode);
+    procedure SetNodeSucessors(p,last : tnode);
       var
         Continuestack : TFPList;
         Breakstack : TFPList;