paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 19:49:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* keep track which nested function definition the new method has been converted from

Browse Source
This commit is contained in:
Sven/Sarah Barth 2023-12-30 14:45:41 +01:00
parent 74833bda09
commit 1853d1ddd8
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/procdefutil.pas
View File

@ -993,6 +993,7 @@ implementation
{ the nested function needs access to the parent's framepointer to { the nested function needs access to the parent's framepointer to
access the capturer } access the capturer }
insert_parentfp_para(pinested.procdef); insert_parentfp_para(pinested.procdef);
pd.copied_from:=pinested.procdef;
end; end;
{ to simplify some checks, but only after insert_funcret_para } { to simplify some checks, but only after insert_funcret_para }
pd.was_anonymous:=true; pd.was_anonymous:=true;

1
compiler/symdef.pas
View File

@ -907,6 +907,7 @@ interface
{$endif} {$endif}
{ only needed when actually compiling a unit, no need to save/load from ppu } { only needed when actually compiling a unit, no need to save/load from ppu }
invoke_helper : tprocdef; invoke_helper : tprocdef;
copied_from : tprocdef;
constructor create(level:byte;doregister:boolean);virtual; constructor create(level:byte;doregister:boolean);virtual;
constructor ppuload(ppufile:tcompilerppufile); constructor ppuload(ppufile:tcompilerppufile);
destructor destroy;override; destructor destroy;override;