* Fixed memory leak in classes with interfaces

git-svn-id: trunk@22094 -

packages/fcl-passrc/src/pastree.pp

@@ -1659,6 +1659,8 @@ var
 begin
   for i := 0 to Members.Count - 1 do
     TPasElement(Members[i]).Release;
+  for i := 0 to Interfaces.Count - 1 do
+    TPasElement(Interfaces[i]).Release;
   Members.Free;
   if Assigned(AncestorType) then
     AncestorType.Release;