Browse Source

* free typedconstbuilder after generating rtti

git-svn-id: trunk@32201 -
Jonas Maebe 9 years ago
parent
commit
c2caa6641c
1 changed files with 1 additions and 0 deletions
  1. 1 0
      compiler/ncgrtti.pas

+ 1 - 0
compiler/ncgrtti.pas

@@ -1541,6 +1541,7 @@ implementation
         current_asmdata.AsmLists[al_rtti].concatList(
         current_asmdata.AsmLists[al_rtti].concatList(
           tcb.get_final_asmlist(rttilab,rttidef,sec_rodata,rttilab.name,const_align(sizeof(pint))));
           tcb.get_final_asmlist(rttilab,rttidef,sec_rodata,rttilab.name,const_align(sizeof(pint))));
         write_rtti_extrasyms(def,rt,rttilab);
         write_rtti_extrasyms(def,rt,rttilab);
+        tcb.free;
       end;
       end;