From 20ef631b73cbc4bb612c04e6d5f914d00e65ea47 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Fri, 26 Mar 1999 11:39:25 +0000
Subject: [PATCH]  * avoid empty symbols

---
 compiler/browcol.pas | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

diff --git a/compiler/browcol.pas b/compiler/browcol.pas
index d69f2b8ee5..cc9e52eb94 100644
--- a/compiler/browcol.pas
+++ b/compiler/browcol.pas
@@ -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