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

Fix sqliteds compilation

Browse Source 
git-svn-id: trunk@31840 -
This commit is contained in:
blikblum 2015-09-26 21:34:16 +00:00
parent 55ad9b69d0
commit e4ec432012
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/sqlite/sqliteds.pas
View File

@ -267,9 +267,9 @@ begin
FEndItem^.Previous := TempItem;
// Alloc item used in append/insert
GetMem(FCacheItem^.Row, FRowBufferSize);
GetMem(FSavedEditItem^.Row, FRowBufferSize);
for Counter := 0 to FRowCount - 1 do
FCacheItem^.Row[Counter] := nil;
FSavedEditItem^.Row[Counter] := nil;
// Fill FBeginItem.Row with nil -> necessary for avoid exceptions in empty datasets
GetMem(FBeginItem^.Row, FRowBufferSize);
for Counter := 0 to FRowCount - 1 do