paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 16:06:09 +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

12
compiler/browcol.pas
View File

@ -728,6 +728,7 @@ procedure CreateBrowserCol;
end;} end;}
for I:=1 to symcount do for I:=1 to symcount do
begin begin
Symbol:=nil;
Sym:=Table^.GetsymNr(I); Sym:=Table^.GetsymNr(I);
if Sym=nil then Continue; if Sym=nil then Continue;
ParamCount:=0; ParamCount:=0;
@ -822,6 +823,9 @@ procedure CreateBrowserCol;
end; end;
end; end;
Ref:=Sym^.defref; Ref:=Sym^.defref;
If assigned(Symbol) then
begin
Owner^.Insert(Symbol);
while Assigned(Symbol) and assigned(Ref) do while Assigned(Symbol) and assigned(Ref) do
begin begin
inputfile:=get_source_file(ref^.moduleindex,ref^.posinfo.fileindex); inputfile:=get_source_file(ref^.moduleindex,ref^.posinfo.fileindex);
@ -833,8 +837,7 @@ procedure CreateBrowserCol;
end; end;
Ref:=Ref^.nextref; Ref:=Ref^.nextref;
end; end;
if Assigned(Symbol) then end;
Owner^.Insert(Symbol);
end; end;
end; end;
@ -900,7 +903,10 @@ begin
end. end.
{ {
$Log$ $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 * fixed bugs 212,222,225,227,229,231,233
Revision 1.8 1999/03/03 01:38:11 pierre Revision 1.8 1999/03/03 01:38:11 pierre