paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 20:46:24 +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; inherited create;
parast:=tparasymtable.create(level); parast:=tparasymtable.create(level);
parast.defowner:=self; parast.defowner:=self;
parast.next:=owner;
para:=TLinkedList.Create; para:=TLinkedList.Create;
minparacount:=0; minparacount:=0;
maxparacount:=0; maxparacount:=0;
@ -5766,7 +5767,10 @@ implementation
end. end.
{ {
$Log$ $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 * re-resolving added instead of reloading from ppu
* tderef object added to store deref info for resolving * tderef object added to store deref info for resolving