浏览代码

fix another memory leak

git-svn-id: trunk@6068 -
pierre 18 年之前
父节点
当前提交
31e650f98d
共有 1 个文件被更改,包括 2 次插入0 次删除
  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;