Merged revisions 11515 via svnmerge from

svn+ssh://[email protected]/FPC/svn/fpc/trunk

........
  r11515 | michael | 2008-08-06 10:29:29 +0200 (Wed, 06 Aug 2008) | 1 line
  
  * Fixed memory leak when destroying TBUFdataset, indexdefs were not freed
........

git-svn-id: branches/fixes_2_2@11519 -

packages/fcl-db/src/base/bufdataset.pas

@@ -398,7 +398,16 @@ begin
 end;
 
 destructor TBufDataset.Destroy;
+
+Var
+  I : Integer;
 begin
+  SetLength(FUpdateBuffer,0);
+  SetLength(FBlobBuffers,0);
+  SetLength(FUpdateBlobBuffers,0);
+  For I:=0 to Length(FIndexes)-1 do
+    FreeAndNil(Findexes[I]);
+  SetLength(FIndexes,0);
   FreeAndNil(FIndexDefs);
   inherited destroy;
 end;