Browse Source

* Fixed overflow for large records (bug10003)

git-svn-id: trunk@11269 -
joost 17 years ago
parent
commit
864f01ebea
1 changed files with 2 additions and 2 deletions
  1. 2 2
      packages/fcl-db/src/sdf/sdfdata.pp

+ 2 - 2
packages/fcl-db/src/sdf/sdfdata.pp

@@ -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;