Procházet zdrojové kódy

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

Sven/Sarah Barth před 1 rokem
rodič
revize
1853d1ddd8
2 změnil soubory, kde provedl 2 přidání a 0 odebrání
  1. 1 0
      compiler/procdefutil.pas
  2. 1 0
      compiler/symdef.pas

+ 1 - 0
compiler/procdefutil.pas

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

+ 1 - 0
compiler/symdef.pas

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