paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 06:10:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

* move broser information generation to a place where the infos are still valid

Browse Source 
git-svn-id: trunk@6145 -
This commit is contained in:
pierre 2007-01-23 05:52:42 +00:00
parent 0c1d59ec5c
commit 30cdc88e5f
1 changed files with 21 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
compiler/parser.pas
View File

@ -434,6 +434,11 @@ implementation
end;
end;
if (compile_level=1) and
(status.errorcount=0) then
{ Write Browser Collections }
do_extractsymbolinfo;
with olddata^ do
begin
{ restore scanner }
@ -472,24 +477,6 @@ implementation
(status.errorcount=0) then
begin
parser_current_file:='';
{ Write Browser Collections }
do_extractsymbolinfo;
{ free now what we did not free earlier in
proc_program PM }
if needsymbolinfo then
begin
hp:=tmodule(loaded_units.first);
while assigned(hp) do
begin
hp2:=tmodule(hp.next);
if (hp<>current_module) then
begin
loaded_units.remove(hp);
hp.free;
end;
hp:=hp2;
end;
end;
{ Close script }
if (not AsmRes.Empty) then
begin
@ -498,6 +485,22 @@ implementation
end;
end;
{ free now what we did not free earlier in
proc_program PM }
if (compile_level=1) and needsymbolinfo then
begin
hp:=tmodule(loaded_units.first);
while assigned(hp) do
begin
hp2:=tmodule(hp.next);
if (hp<>current_module) then
begin
loaded_units.remove(hp);
hp.free;
end;
hp:=hp2;
end;
end;
dec(compile_level);
compiled_module:=olddata^.old_compiled_module;
SetCompileModule(compiled_module);