浏览代码

* set parast.next to the owner of the procdef

peter 22 年之前
父节点
当前提交
d6f431a5a9
共有 1 个文件被更改,包括 5 次插入1 次删除
  1. 5 1
      compiler/symdef.pas

+ 5 - 1
compiler/symdef.pas

@@ -3060,6 +3060,7 @@ implementation
          inherited create;
          parast:=tparasymtable.create(level);
          parast.defowner:=self;
+         parast.next:=owner;
          para:=TLinkedList.Create;
          minparacount:=0;
          maxparacount:=0;
@@ -5766,7 +5767,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.150  2003-06-07 20:26:32  peter
+  Revision 1.151  2003-06-08 11:41:21  peter
+    * set parast.next to the owner of the procdef
+
+  Revision 1.150  2003/06/07 20:26:32  peter
     * re-resolving added instead of reloading from ppu
     * tderef object added to store deref info for resolving