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

* Merging revisions r43038 from trunk:

Browse Source 
------------------------------------------------------------------------
    r43038 | michael | 2019-09-19 10:39:35 +0200 (Thu, 19 Sep 2019) | 1 line
    
    Call CurrentIndexBuf only once
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@43763 -
This commit is contained in:
michael 2019-12-23 14:20:21 +00:00
parent 40d9899d65
commit a00ee7af19
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2173,7 +2173,12 @@ begin
FD:=InternalAddIndex(SDefaultIndex,'',[],'','');
FD.IndexType:=itDefault;
FD.FDiscardOnClose:=True;
end;
end
// Not sure about this. For the moment we leave it in comment
{ else if FD.BufferIndex=Nil then
InternalCreateIndex(FD)}
;
FCurrentIndexDef:=FD;
// Custom index
if not IsUniDirectional then
@ -2184,7 +2189,11 @@ begin
FC:=InternalAddIndex(SCustomIndex,'',[],'','');
FC.IndexType:=itCustom;
FC.FDiscardOnClose:=True;
end;
end
// Not sure about this. For the moment we leave it in comment
{ else if FD.BufferIndex=Nil then
InternalCreateIndex(FD)}
;
end;
BookmarkSize:=CurrentIndexBuf.BookmarkSize;
end;
@ -2405,6 +2414,7 @@ function TCustomBufDataset.getnextpacket : integer;
var i : integer;
pb : TRecordBuffer;
T : TBufIndex;
begin
if FAllPacketsFetched then
@ -2412,8 +2422,8 @@ begin
result := 0;
exit;
end;
CurrentIndexBuf.BeginUpdate;
T:=CurrentIndexBuf;
T.BeginUpdate;
i := 0;
pb := DefaultBufferIndex.SpareBuffer;
@ -2427,7 +2437,7 @@ begin
inc(i);
end;
CurrentIndexBuf.EndUpdate;
T.EndUpdate;
FBRecordCount := FBRecordCount + i;
result := i;
end;