Quellcode durchsuchen

* fixed wrong variable names

peter vor 26 Jahren
Ursprung
Commit
38379e14b9
1 geänderte Dateien mit 9 neuen und 4 gelöschten Zeilen
  1. 9 4
      compiler/browcol.pas

+ 9 - 4
compiler/browcol.pas

@@ -686,12 +686,14 @@ procedure CreateBrowserCol;
       Count: integer;
   begin
     Name:='(';
-    esym:=def^.First; Count:=0;
+    esym:=def^.Firstenum; Count:=0;
     while (esym<>nil) do
       begin
-        if Count>0 then Name:=Name+', ';
+        if Count>0 then
+          Name:=Name+', ';
         Name:=Name+esym^.name;
-        esym:=esym^.next; Inc(Count);
+        esym:=esym^.nextenum;
+        Inc(Count);
       end;
     Name:=Name+')';
     GetEnumDefStr:=Name;
@@ -1220,7 +1222,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.12  1999-04-10 16:15:00  peter
+  Revision 1.13  1999-04-14 18:59:52  peter
+    * fixed wrong variable names
+
+  Revision 1.12  1999/04/10 16:15:00  peter
     * fixed browcol
     + -ar to show regalloc info in .s file