1 files changed, 4 insertions, 1 deletions
diff --git a/packages/compiler/pmodules.pas b/packages/compiler/pmodules.pas
index f0051ff1b9..a6c9b449f6 100644
--- a/packages/compiler/pmodules.pas
+++ b/packages/compiler/pmodules.pas
@@ -1080,7 +1080,10 @@ type
            begin
              { first release the not used init procinfo }
              if assigned(init_procinfo) then
-               release_main_proc(init_procinfo);
+               begin
+                 release_proc_symbol(init_procinfo.procdef);
+                 release_main_proc(init_procinfo);
+               end;
              init_procinfo:=gen_implicit_initfinal(uf_init,current_module.localsymtable);
            end;
          { finalize? }