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

+ TDFABuilder.redodfainfo

Browse Source
This commit is contained in:
florian 2021-10-22 22:39:23 +02:00
parent 12a2c56461
commit d0fdda6da7
2 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/optdfa.pas
View File

@ -45,6 +45,7 @@ unit optdfa;
procedure resetdfainfo(node : tnode); procedure resetdfainfo(node : tnode);
procedure createdfainfo(node : tnode); procedure createdfainfo(node : tnode);
procedure redodfainfo(node : tnode);
destructor destroy;override; destructor destroy;override;
end; end;
@ -659,6 +660,14 @@ unit optdfa;
end; end;
procedure TDFABuilder.redodfainfo(node: tnode);
begin
resetdfainfo(node);
createdfainfo(node);
include(current_procinfo.flags,pi_dfaavailable);
end;
destructor TDFABuilder.Destroy; destructor TDFABuilder.Destroy;
begin begin
Resultnode.free; Resultnode.free;

12
compiler/psub.pas
View File

@ -1218,11 +1218,7 @@ implementation
end; end;
if RedoDFA then if RedoDFA then
begin dfabuilder.redodfainfo(code);
dfabuilder.resetdfainfo(code);
dfabuilder.createdfainfo(code);
include(flags,pi_dfaavailable);
end;
if cs_opt_forloop in current_settings.optimizerswitches then if cs_opt_forloop in current_settings.optimizerswitches then
RedoDFA:=OptimizeForLoop(code); RedoDFA:=OptimizeForLoop(code);
@ -1230,11 +1226,7 @@ implementation
RedoDFA:=ConvertForLoops(code) or RedoDFA; RedoDFA:=ConvertForLoops(code) or RedoDFA;
if RedoDFA then if RedoDFA then
begin dfabuilder.redodfainfo(code);
dfabuilder.resetdfainfo(code);
dfabuilder.createdfainfo(code);
include(flags,pi_dfaavailable);
end;
{ when life info is available, we can give more sophisticated warning about uninitialized { when life info is available, we can give more sophisticated warning about uninitialized
variables ... variables ...