paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 04:29:29 +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;
begin
case n.nodetype of
temprefn,
loadn:
begin
pdfainfo(arg)^.map.Add(n);
@ -256,6 +257,10 @@ unit optdfa;
exit;
include(node.flags,nf_processing);
if not(assigned(node.successor)) and (node<>resultnode) then
node.successor:=resultnode;
if assigned(node.successor) then
CreateInfo(node.successor);
@ -405,6 +410,7 @@ unit optdfa;
dfainfo.map:=map;
foreachnodestatic(pm_postprocess,tifnode(node).left,@AddDefUse,@dfainfo);
end;
{ create life info for then and else node }
CreateInfo(tifnode(node).right);
CreateInfo(tifnode(node).t1);
@ -528,10 +534,11 @@ unit optdfa;
calclife(node);
end;
else
begin
writeln(nodetype2str[node.nodetype]);
internalerror(2007050502);
end;
if node<>resultnode then
begin
writeln(nodetype2str[node.nodetype]);
internalerror(2007050502);
end;
end;
// exclude(node.flags,nf_processing);