|
@@ -3202,6 +3202,8 @@ implementation
|
|
|
hp.paratype.resolve;
|
|
hp.paratype.resolve;
|
|
|
hp.defaultvalue:=tsym(hp.defaultvaluederef.resolve);
|
|
hp.defaultvalue:=tsym(hp.defaultvaluederef.resolve);
|
|
|
hp.parasym:=tvarsym(hp.parasymderef.resolve);
|
|
hp.parasym:=tvarsym(hp.parasymderef.resolve);
|
|
|
|
|
+ { connect parasym to paraitem }
|
|
|
|
|
+ tvarsym(hp.parasym).paraitem:=hp;
|
|
|
hp:=TParaItem(hp.next);
|
|
hp:=TParaItem(hp.next);
|
|
|
end;
|
|
end;
|
|
|
end;
|
|
end;
|
|
@@ -5854,7 +5856,10 @@ implementation
|
|
|
end.
|
|
end.
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$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
|
|
* locals and paras are allocated in the code generation
|
|
|
* tvarsym.localloc contains the location of para/local when
|
|
* tvarsym.localloc contains the location of para/local when
|
|
|
generating code for the current procedure
|
|
generating code for the current procedure
|
peter