Browse Source

fix another memory leak

git-svn-id: trunk@6068 -
pierre 18 years ago
parent
commit
31e650f98d
1 changed files with 2 additions and 0 deletions
  1. 2 0
      compiler/pdecl.pas

+ 2 - 0
compiler/pdecl.pas

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