paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 06:10:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

* restore next instead of indexnext field for dc local var in GetAbsProcParmDefStr

Browse Source
This commit is contained in:
pierre 2000-08-18 13:18:12 +00:00
parent 0f02db341c
commit 28af0a7223
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/browcol.pas
View File

@ -1254,10 +1254,10 @@ end;
end;
if assigned(dc^.paratype.def) then
CurName:=CurName+GetDefinitionStr(dc^.paratype.def);
if dc^.indexnext<>nil then
if dc^.next<>nil then
CurName:=', '+CurName;
Name:=CurName+Name;
dc:=pparaitem(dc^.indexnext);
dc:=pparaitem(dc^.next);
Inc(Count);
end;
GetAbsProcParmDefStr:=Name;
@ -2094,7 +2094,10 @@ begin
end.
{
$Log$
Revision 1.4 2000-08-16 18:33:53 peter
Revision 1.5 2000-08-18 13:18:12 pierre
* restore next instead of indexnext field for dc local var in GetAbsProcParmDefStr
Revision 1.4 2000/08/16 18:33:53 peter
* splitted namedobjectitem.next into indexnext and listnext so it
can be used in both lists
* don't allow "word = word" type definitions (merged)
@ -2105,4 +2108,4 @@ end.
Revision 1.2 2000/07/13 11:32:32 michael
+ removed logs
}
}