paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 16:09:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed dfa for raise nodes

Browse Source 
git-svn-id: trunk@8155 -
This commit is contained in:
florian 2007-07-23 20:22:36 +00:00
parent 89eddc7504
commit a2ac6c698d
1 changed files with 6 additions and 5 deletions

11
compiler/optdfa.pas
View File

@ -411,10 +411,7 @@ unit optdfa;
raisen:
begin
calclife(node);
node.allocoptinfo;
if not(assigned(node.optinfo^.def)) and
not(assigned(node.optinfo^.use)) then
if not(assigned(node.optinfo^.life)) then
begin
dfainfo.use:=@node.optinfo^.use;
dfainfo.def:=@node.optinfo^.def;
@ -422,8 +419,12 @@ unit optdfa;
foreachnodestatic(pm_postprocess,traisenode(node).left,@AddDefUse,@dfainfo);
foreachnodestatic(pm_postprocess,traisenode(node).right,@AddDefUse,@dfainfo);
foreachnodestatic(pm_postprocess,traisenode(node).third,@AddDefUse,@dfainfo);
{ update node }
l:=node.optinfo^.life;
DFASetIncludeSet(l,node.optinfo^.use);
UpdateLifeInfo(node,l);
printdfainfo(output,node);
end;
calclife(node);
end;
calln: