From b0077a1155c8b6f9ed68f038f661a749fe4d212b Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 14 Apr 2012 13:38:33 +0000
Subject: [PATCH] * Removed some memory leaks

git-svn-id: trunk@20863 -
---
 packages/fcl-passrc/src/pastree.pp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/packages/fcl-passrc/src/pastree.pp b/packages/fcl-passrc/src/pastree.pp
index 01ead9fd39..aacca82f94 100644
--- a/packages/fcl-passrc/src/pastree.pp
+++ b/packages/fcl-passrc/src/pastree.pp
@@ -1366,7 +1366,9 @@ end;
 destructor TPasSetType.Destroy;
 begin
   if Assigned(EnumType) then
+    begin
     EnumType.Release;
+    end;
   inherited Destroy;
 end;
 
@@ -2814,6 +2816,7 @@ destructor TParamsExpr.Destroy;
 var
   i : Integer;
 begin
+  FreeAndNil(Value);
   for i:=0 to length(Params)-1 do Params[i].Free;
   inherited Destroy;
 end;