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

+ do life dfa for exit

Browse Source 
git-svn-id: trunk@7299 -
This commit is contained in:
florian 2007-05-07 20:30:19 +00:00
parent c0d27b5482
commit d469e3a7ef
2 changed files with 28 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
compiler/optdfa.pas
View File

@ -45,6 +45,8 @@ unit optdfa;
verbose,
cpuinfo,
symdef,
defutil,
procinfo,
nutils,
nbas,nflw,ncon,ninl,ncal,
optbase,optutils;
@ -125,6 +127,7 @@ unit optdfa;
var
changed : boolean;
Resultnode : TNode;
procedure CreateInfo(node : tnode);
@ -286,6 +289,16 @@ unit optdfa;
{ finally, update the life info of the node }
UpdateLifeInfo(node,l);
end;
exitn:
begin
if not(is_void(current_procinfo.procdef.returndef)) then
begin
{ get info from faked resultnode }
node.optinfo^.use:=resultnode.optinfo^.use;
node.optinfo^.life:=node.optinfo^.use;
end;
end;
nothingn,
continuen,
goton,
breakn,
@ -302,9 +315,22 @@ unit optdfa;
var
runs : integer;
dfarec : tdfainfo;
begin
runs:=0;
if not(is_void(current_procinfo.procdef.returndef)) then
begin
{ create a fake node using the result }
resultnode:=load_result_node;
resultnode.allocoptinfo;
dfarec.use:=@resultnode.optinfo^.use;
dfarec.def:=@resultnode.optinfo^.def;
dfarec.map:=map;
AddDefUse(resultnode,@dfarec);
end
else
resultnode:=nil;
repeat
inc(runs);
changed:=false;
@ -317,6 +343,7 @@ unit optdfa;
{$ifdef DEBUG_DFA}
writeln('DFA solver iterations: ',runs);
{$endif DEBUG_DFA}
resultnode.free;
end;

3
compiler/optutils.pas
View File

@ -240,16 +240,13 @@ unit optutils;
internalerror(2007050701);
p.successor:=tgotonode(p).labelnode;
end;
{ exit is actually a jump to some final. code
exitn:
begin
result:=p;
p.successor:=nil;
end;
}
inlinen,
calln,
exitn,
withn,
casen,
tryexceptn,