paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 08:51:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed overflow for large records (bug10003)

Browse Source 
git-svn-id: trunk@11269 -
This commit is contained in:
joost 2008-06-23 21:39:54 +00:00
parent 96edd65a89
commit 864f01ebea
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/sdf/sdfdata.pp
View File

@ -162,8 +162,8 @@ type
FRecBufSize :Integer;
FRecordSize :Integer;
FLastBookmark :PtrInt;
FRecInfoOfs :Word;
FBookmarkOfs :Word;
FRecInfoOfs :Integer;
FBookmarkOfs :Integer;
FSaveChanges :Boolean;
protected
function AllocRecordBuffer: PChar; override;