paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 12:20:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* set always resultnode as last node

Browse Source 
git-svn-id: trunk@25969 -
This commit is contained in:
florian 2013-11-06 21:10:43 +00:00
parent 0a762e416f
commit b3c2a8ddb1
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/optdfa.pas
View File

@ -595,7 +595,7 @@ unit optdfa;
if not(assigned(nodemap)) then if not(assigned(nodemap)) then
nodemap:=TIndexedNodeSet.Create; nodemap:=TIndexedNodeSet.Create;
{ add controll flow information } { add controll flow information }
SetNodeSucessors(node); SetNodeSucessors(node,resultnode);
{ now, collect life information } { now, collect life information }
CreateLifeInfo(node,nodemap); CreateLifeInfo(node,nodemap);
end; end;

4
compiler/optutils.pas
View File

@ -38,7 +38,7 @@ unit optutils;
function Remove(node : tnode) : boolean; function Remove(node : tnode) : boolean;
end; end;
procedure SetNodeSucessors(p : tnode); procedure SetNodeSucessors(p,last : tnode);
procedure PrintDFAInfo(var f : text;p : tnode); procedure PrintDFAInfo(var f : text;p : tnode);
procedure PrintIndexedNodeSet(var f : text;s : TIndexedNodeSet); procedure PrintIndexedNodeSet(var f : text;s : TIndexedNodeSet);
{ determines the optinfo.defsum field for the given node { determines the optinfo.defsum field for the given node
@ -141,7 +141,7 @@ unit optutils;
end; end;
procedure SetNodeSucessors(p : tnode); procedure SetNodeSucessors(p,last : tnode);
var var
Continuestack : TFPList; Continuestack : TFPList;
Breakstack : TFPList; Breakstack : TFPList;