|
@@ -1254,10 +1254,10 @@ end;
|
|
end;
|
|
end;
|
|
if assigned(dc^.paratype.def) then
|
|
if assigned(dc^.paratype.def) then
|
|
CurName:=CurName+GetDefinitionStr(dc^.paratype.def);
|
|
CurName:=CurName+GetDefinitionStr(dc^.paratype.def);
|
|
- if dc^.indexnext<>nil then
|
|
|
|
|
|
+ if dc^.next<>nil then
|
|
CurName:=', '+CurName;
|
|
CurName:=', '+CurName;
|
|
Name:=CurName+Name;
|
|
Name:=CurName+Name;
|
|
- dc:=pparaitem(dc^.indexnext);
|
|
|
|
|
|
+ dc:=pparaitem(dc^.next);
|
|
Inc(Count);
|
|
Inc(Count);
|
|
end;
|
|
end;
|
|
GetAbsProcParmDefStr:=Name;
|
|
GetAbsProcParmDefStr:=Name;
|
|
@@ -2094,7 +2094,10 @@ begin
|
|
end.
|
|
end.
|
|
{
|
|
{
|
|
$Log$
|
|
$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
|
|
* splitted namedobjectitem.next into indexnext and listnext so it
|
|
can be used in both lists
|
|
can be used in both lists
|
|
* don't allow "word = word" type definitions (merged)
|
|
* don't allow "word = word" type definitions (merged)
|
|
@@ -2105,4 +2108,4 @@ end.
|
|
Revision 1.2 2000/07/13 11:32:32 michael
|
|
Revision 1.2 2000/07/13 11:32:32 michael
|
|
+ removed logs
|
|
+ removed logs
|
|
|
|
|
|
-}
|
|
|
|
|
|
+}
|