paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-03 07:18:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* set parast.next to the owner of the procdef

Browse Source
This commit is contained in:
peter 2003-06-08 11:41:21 +00:00
parent 7fcb3154d6
commit d6f431a5a9
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/symdef.pas
View File

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