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

* fixed parentfp loading, it was using the offset of the current

Browse Source 
nested proc instead of the parent
This commit is contained in:
peter 2003-11-23 17:03:35 +00:00
parent c0c33961bf
commit ba3f7813de
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ncgmem.pas
View File

@ -205,6 +205,9 @@ implementation
{ walk parents }
while (currpi.procdef.owner.symtablelevel>parentpd.parast.symtablelevel) do
begin
currpi:=currpi.parent;
if not assigned(currpi) then
internalerror(200311201);
hsym:=tvarsym(currpi.procdef.parast.search('parentfp'));
if not assigned(hsym) then
internalerror(200309282);
@ -212,7 +215,6 @@ implementation
internalerror(200309283);
reference_reset_base(href,location.register,hsym.localloc.reference.offset);
cg.a_load_ref_reg(exprasmlist,OS_ADDR,OS_ADDR,href,location.register);
currpi:=currpi.parent;
end;
end;
end;
@ -876,7 +878,11 @@ begin
end.
{
$Log$
Revision 1.80 2003-11-04 15:35:13 peter
Revision 1.81 2003-11-23 17:03:35 peter
* fixed parentfp loading, it was using the offset of the current
nested proc instead of the parent
Revision 1.80 2003/11/04 15:35:13 peter
* fix for referencecounted temps
Revision 1.79 2003/10/10 17:48:13 peter