paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-05 14:58:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* avoid empty symbols

Browse Source
This commit is contained in:
pierre 1999-03-26 11:39:25 +00:00
parent c5db6f3dfe
commit 20ef631b73
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/browcol.pas
View File

@ -728,6 +728,7 @@ procedure CreateBrowserCol;
end;}
for I:=1 to symcount do
begin
Symbol:=nil;
Sym:=Table^.GetsymNr(I);
if Sym=nil then Continue;
ParamCount:=0;
@ -822,8 +823,11 @@ procedure CreateBrowserCol;
end;
end;
Ref:=Sym^.defref;
while Assigned(Symbol) and assigned(Ref) do
begin
If assigned(Symbol) then
begin
Owner^.Insert(Symbol);
while Assigned(Symbol) and assigned(Ref) do
begin
inputfile:=get_source_file(ref^.moduleindex,ref^.posinfo.fileindex);
if Assigned(inputfile) and Assigned(inputfile^.name) then
begin
@ -832,9 +836,8 @@ procedure CreateBrowserCol;
Symbol^.References^.Insert(Reference);
end;
Ref:=Ref^.nextref;
end;
if Assigned(Symbol) then
Owner^.Insert(Symbol);
end;
end;
end;
end;
@ -900,7 +903,10 @@ begin
end.
{
$Log$
Revision 1.9 1999-03-24 23:16:44 peter
Revision 1.10 1999-03-26 11:39:25 pierre
* avoid empty symbols
Revision 1.9 1999/03/24 23:16:44 peter
* fixed bugs 212,222,225,227,229,231,233
Revision 1.8 1999/03/03 01:38:11 pierre