From 31e650f98df320896e39c945cee706664c24b01a Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Fri, 19 Jan 2007 05:43:40 +0000
Subject: [PATCH]  fix another memory leak

git-svn-id: trunk@6068 -
---
 compiler/pdecl.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/compiler/pdecl.pas b/compiler/pdecl.pas
index ae34e3dfb4..322e2c47ba 100644
--- a/compiler/pdecl.pas
+++ b/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;