paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 12:49:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed wrong variable names

Browse Source
This commit is contained in:
peter 1999-04-14 18:59:52 +00:00
parent 1335d7de8a
commit 38379e14b9
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/browcol.pas
View File

@ -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