paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 17:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: bufdataset: fix for AV in test TTestCursorDBBasics.TestBookmarkValid

Browse Source 
git-svn-id: trunk@39019 -
This commit is contained in:
lacak 2018-05-18 08:05:19 +00:00
parent f5efe4bd90
commit 7fc9871cbe
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -64,8 +64,6 @@ type
end;
{ TCustomBufDataset }
PBufRecLinkItem = ^TBufRecLinkItem;
TBufRecLinkItem = record
prior : PBufRecLinkItem;
@ -442,8 +440,7 @@ type
class function RecognizeStream(AStream : TStream) : boolean; override;
end;
{ TBufDatasetIndex }
{ TCustomBufDataset }
TCustomBufDataset = class(TDBDataSet)
Private
@ -477,7 +474,6 @@ type
end;
{ TBufDatasetIndexDefs }
TBufDatasetIndexDefs = Class(TIndexDefs)
private
function GetBufDatasetIndex(AIndex : Integer): TBufDatasetIndex;
@ -489,6 +485,7 @@ type
Property BufIndexdefs [AIndex : Integer] : TBufDatasetIndex Read GetBufDatasetIndex;
Property BufIndexes [AIndex : Integer] : TBufIndex Read GetBufferIndex;
end;
procedure BuildCustomIndex;
function GetBufIndex(Aindex : Integer): TBufIndex;
function GetBufIndexDef(Aindex : Integer): TBufDatasetIndex;
@ -526,6 +523,7 @@ type
FUpdateBlobBuffers: array of PBlobBuffer;
FManualMergeChangeLog : Boolean;
FRefreshing : Boolean;
procedure ProcessFieldsToCompareStruct(const AFields, ADescFields, ACInsFields: TList;
const AIndexOptions: TIndexOptions; const ALocateOptions: TLocateOptions; out ACompareStruct: TDBCompareStruct);
function BufferOffset: integer;
@ -3503,7 +3501,7 @@ end;
function TCustomBufDataset.BookmarkValid(ABookmark: TBookmark): Boolean;
begin
Result:=Assigned(CurrentIndexDef) and CurrentIndexBuf.BookmarkValid(pointer(ABookmark));
Result:=Assigned(CurrentIndexBuf) and CurrentIndexBuf.BookmarkValid(pointer(ABookmark));
end;
function TCustomBufDataset.CompareBookmarks(Bookmark1, Bookmark2: TBookmark): Longint;