paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* connect parasym to paraitem

Browse Source
This commit is contained in:
peter 2003-09-23 21:03:35 +00:00
parent 72761249f1
commit d3063f722c
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/symdef.pas
View File

@ -3202,6 +3202,8 @@ implementation
hp.paratype.resolve;
hp.defaultvalue:=tsym(hp.defaultvaluederef.resolve);
hp.parasym:=tvarsym(hp.parasymderef.resolve);
{ connect parasym to paraitem }
tvarsym(hp.parasym).paraitem:=hp;
hp:=TParaItem(hp.next);
end;
end;
@ -5854,7 +5856,10 @@ implementation
end.
{
$Log$
Revision 1.163 2003-09-23 17:56:06 peter
Revision 1.164 2003-09-23 21:03:35 peter
* connect parasym to paraitem
Revision 1.163 2003/09/23 17:56:06 peter
* locals and paras are allocated in the code generation
* tvarsym.localloc contains the location of para/local when
generating code for the current procedure