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

* the successor of the last node is the resultnode if one exists

Browse Source 
* create def/use info for temp. nodes

git-svn-id: trunk@25967 -
This commit is contained in:
florian 2013-11-06 21:10:38 +00:00
parent 20942d8b45
commit 1fb3c2e0c2
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/optdfa.pas
View File

@ -113,6 +113,7 @@ unit optdfa;
function AddDefUse(var n: tnode; arg: pointer): foreachnoderesult; function AddDefUse(var n: tnode; arg: pointer): foreachnoderesult;
begin begin
case n.nodetype of case n.nodetype of
temprefn,
loadn: loadn:
begin begin
pdfainfo(arg)^.map.Add(n); pdfainfo(arg)^.map.Add(n);
@ -256,6 +257,10 @@ unit optdfa;
exit; exit;
include(node.flags,nf_processing); include(node.flags,nf_processing);
if not(assigned(node.successor)) and (node<>resultnode) then
node.successor:=resultnode;
if assigned(node.successor) then if assigned(node.successor) then
CreateInfo(node.successor); CreateInfo(node.successor);
@ -405,6 +410,7 @@ unit optdfa;
dfainfo.map:=map; dfainfo.map:=map;
foreachnodestatic(pm_postprocess,tifnode(node).left,@AddDefUse,@dfainfo); foreachnodestatic(pm_postprocess,tifnode(node).left,@AddDefUse,@dfainfo);
end; end;
{ create life info for then and else node } { create life info for then and else node }
CreateInfo(tifnode(node).right); CreateInfo(tifnode(node).right);
CreateInfo(tifnode(node).t1); CreateInfo(tifnode(node).t1);
@ -528,10 +534,11 @@ unit optdfa;
calclife(node); calclife(node);
end; end;
else else
begin if node<>resultnode then
writeln(nodetype2str[node.nodetype]); begin
internalerror(2007050502); writeln(nodetype2str[node.nodetype]);
end; internalerror(2007050502);
end;
end; end;
// exclude(node.flags,nf_processing); // exclude(node.flags,nf_processing);