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

* Set and get full PBufBookmark buffer on get/SetBookmarkData to avoid random

Browse Source 
data at the end of the bookmark-buffer, solves bug #8541

git-svn-id: trunk@12775 -
This commit is contained in:
joost 2009-02-22 20:21:39 +00:00
parent e4495fc350
commit d3c965880f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1387,7 +1387,7 @@ end;
procedure TBufDataset.SetBookmarkData(Buffer: PChar; Data: Pointer); procedure TBufDataset.SetBookmarkData(Buffer: PChar; Data: Pointer);
begin begin
PBufBookmark(Buffer + FRecordSize)^.BookmarkData := pointer(Data^); PBufBookmark(Buffer + FRecordSize)^ := PBufBookmark(Data)^;
end; end;
procedure TBufDataset.SetBookmarkFlag(Buffer: PChar; Value: TBookmarkFlag); procedure TBufDataset.SetBookmarkFlag(Buffer: PChar; Value: TBookmarkFlag);
@ -1397,7 +1397,7 @@ end;
procedure TBufDataset.GetBookmarkData(Buffer: PChar; Data: Pointer); procedure TBufDataset.GetBookmarkData(Buffer: PChar; Data: Pointer);
begin begin
pointer(Data^) := PBufBookmark(Buffer + FRecordSize)^.BookmarkData; PBufBookmark(Data)^ := PBufBookmark(Buffer + FRecordSize)^;
end; end;
function TBufDataset.GetBookmarkFlag(Buffer: PChar): TBookmarkFlag; function TBufDataset.GetBookmarkFlag(Buffer: PChar): TBookmarkFlag;