1 files changed, 15 insertions, 0 deletions
diff --git a/closures/compiler/symdef.pas b/closures/compiler/symdef.pas
index 4dea14eb01..3e80f620f4 100644
--- a/closures/compiler/symdef.pas
+++ b/closures/compiler/symdef.pas
@@ -580,6 +580,8 @@ interface
           function  is_methodpointer:boolean;override;
           function  is_addressonly:boolean;override;
           procedure make_external;
+          procedure add_to_procsym; overload; inline;
+          procedure add_to_procsym(sym: {tprocsym}tsym); overload; inline;
        end;
 
        { single linked list of overloaded procs }
@@ -3934,6 +3936,19 @@ implementation
       end;
 
 
+    procedure tprocdef.add_to_procsym; inline;
+      begin
+        tprocsym(procsym).ProcdefList.Add(self);
+      end;
+
+
+    procedure tprocdef.add_to_procsym(sym: {tprocsym}tsym); inline;
+      begin
+        procsym:=sym;
+        add_to_procsym;
+      end;
+
+
     procedure tprocdef.buildderef;
       begin
          inherited buildderef;