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

* move calculation of sto_needs_init_final to a separate method do_init_final_check()

Browse Source 
git-svn-id: trunk@39251 -
This commit is contained in:
svenbarth 2018-06-20 19:00:05 +00:00
parent 393d1c2256
commit 80ed66f349
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/symtable.pas
View File

@ -40,6 +40,7 @@ interface
private
init_final_check_done : boolean;
procedure _needs_init_final(sym:TObject;arg:pointer);
procedure do_init_final_check;
procedure check_forward(sym:TObject;arg:pointer);
procedure check_block_valid(def: TObject;arg:pointer);
procedure register_defs(def:tobject;arg:pointer);
@ -1089,8 +1090,7 @@ implementation
end;
{ returns true, if p contains data which needs init/final code }
function tstoredsymtable.needs_init_final : boolean;
procedure tstoredsymtable.do_init_final_check;
begin
if not init_final_check_done then
begin
@ -1098,6 +1098,12 @@ implementation
SymList.ForEachCall(@_needs_init_final,nil);
init_final_check_done:=true;
end;
end;
{ returns true, if p contains data which needs init/final code }
function tstoredsymtable.needs_init_final : boolean;
begin
do_init_final_check;
result:=sto_needs_init_final in tableoptions;
end;