diff --git a/compiler/browcol.pas b/compiler/browcol.pas index 1f49976868..189d4c1930 100644 --- a/compiler/browcol.pas +++ b/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