Ver código fonte

fix another memory leak

git-svn-id: trunk@6068 -
pierre 18 anos atrás
pai
commit
31e650f98d
1 arquivos alterados com 2 adições e 0 exclusões
  1. 2 0
      compiler/pdecl.pas

+ 2 - 0
compiler/pdecl.pas

@@ -568,6 +568,8 @@ implementation
          until token<>_ID;
          typecanbeforward:=false;
          symtablestack.top.SymList.ForEachCall(@resolve_type_forward,nil);
+         if assigned(generictypelist) then
+           generictypelist.free;
          block_type:=old_block_type;
       end;