paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-11 12:30:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Mek to kill memleak while inserting, Mantis #18004

Browse Source 
git-svn-id: trunk@20531 -
This commit is contained in:
marco 2012-03-17 12:21:45 +00:00
parent 956629e41c
commit a6fd41b1d1
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-db/src/base/bufdataset.pas
View File

@ -1899,7 +1899,9 @@ var i : Integer;
StartInd : Integer;
RemRec : pointer;
RemRecBookmrk : TBufBookmark;
free_rec: Boolean;
begin
free_rec := False;
InternalSetToRecord(ActiveBuffer);
// Remove the record from all active indexes
FCurrentIndex.StoreCurrentRecIntoBookmark(@RemRecBookmrk);
@ -1921,11 +1923,13 @@ begin
begin
if FUpdateBuffer[FCurrentUpdateBuffer].UpdateKind <> ukModify then
FUpdateBuffer[FCurrentUpdateBuffer].OldValuesBuffer := nil; //this 'disables' the updatebuffer
free_rec := FUpdateBuffer[FCurrentUpdateBuffer].UpdateKind = ukInsert; // mantis #18004
end;
FCurrentIndex.StoreCurrentRecIntoBookmark(@FUpdateBuffer[FCurrentUpdateBuffer].NextBookmarkData);
FUpdateBuffer[FCurrentUpdateBuffer].BookmarkData := RemRecBookmrk;
FUpdateBuffer[FCurrentUpdateBuffer].UpdateKind := ukDelete;
if free_rec then
FreeRecordBuffer(TRecordBuffer(RemRecBookmrk.BookmarkData));
dec(FBRecordCount);
end;