pmodules.pas, finish_unit:

  * also release the generated proc symbol if the init function isn't needed


git-svn-id: http://svn.freepascal.org/svn/fpc/branches/svenbarth@32575 3ad0048d-3df7-0310-abae-a5850022a9f2

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? }