Browse Source

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

pierre 25 years ago
parent
commit
28af0a7223
1 changed files with 7 additions and 4 deletions
  1. 7 4
      compiler/browcol.pas

+ 7 - 4
compiler/browcol.pas

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