From b3c2a8ddb13d87e437811a8aeacdd052053510de Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Wed, 6 Nov 2013 21:10:43 +0000
Subject: [PATCH] * set always resultnode as last node

git-svn-id: trunk@25969 -
---
 compiler/optdfa.pas   | 2 +-
 compiler/optutils.pas | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

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;