Memory leak in TCustomBufDataset.SetBufUniDirectional
Original Reporter info from Mantis: snorkel
-
Reporter name:
Original Reporter info from Mantis: snorkel
- Reporter name:
Description:
it zeros out the Findexes array, but does not free the actual indexes.
Shouldn't it be:
procedure TCustomBufDataset.SetBufUniDirectional(const AValue: boolean);
var
i:integer;
begin
CheckInactive;
if (AValue<>IsUniDirectional) then
begin
SetUniDirectional(AValue);
For I:=0 to Length(FIndexes)-1 do {<--this is missing in original}
FreeAndNil(Findexes[I]);{<--this is missing in original}
SetLength(FIndexes,0);
FPacketRecords := 1; // temporary
FIndexesCount:=0;
end;
end;
Mantis conversion info:
- Mantis ID: 24109
- OS: all
- Platform: all
- Version: 2.6.2
- Fixed in version: 3.0.0
- Fixed in revision: 26724 (#7846bec1)
- Target version: 3.0.0