paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 06:49:23 +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; Count: integer;
begin begin
Name:='('; Name:='(';
esym:=def^.First; Count:=0; esym:=def^.Firstenum; Count:=0;
while (esym<>nil) do while (esym<>nil) do
begin begin
if Count>0 then Name:=Name+', '; if Count>0 then
Name:=Name+', ';
Name:=Name+esym^.name; Name:=Name+esym^.name;
esym:=esym^.next; Inc(Count); esym:=esym^.nextenum;
Inc(Count);
end; end;
Name:=Name+')'; Name:=Name+')';
GetEnumDefStr:=Name; GetEnumDefStr:=Name;
@ -1220,7 +1222,10 @@ begin
end. end.
{ {
$Log$ $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 * fixed browcol
+ -ar to show regalloc info in .s file + -ar to show regalloc info in .s file