paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-09-28 15:49:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Initialize next buffers when increasing buffer size

Browse Source
This commit is contained in:
michael 2018-04-21 07:54:00 +00:00
parent 30fed36605
commit 2cd1d5909a
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/fcl-db/db.pas
View File

@ -3512,7 +3512,9 @@ begin
ABufferCount := 1
else
ABufferCount := DefaultBufferCount;
{$ifdef dsdebug}
Writeln('Recalculating buffer list size, start count: ',ABufferCount);
{$endif}
for i := 0 to FDataSources.Count - 1 do
for j := 0 to TDataSource(FDataSources[i]).DataLinks.Count - 1 do
begin
@ -3520,6 +3522,9 @@ begin
if ABufferCount<DataLink.BufferCount then
ABufferCount:=DataLink.BufferCount;
end;
{$ifdef dsdebug}
Writeln('Recalculating buffer list size, end count: ',ABufferCount);
{$endif}
If (FBufferCount=ABufferCount) Then
exit;
@ -3569,7 +3574,12 @@ begin
If Value=FBufferCount Then
exit;
// Less buffers, shift buffers.
if value<BufferCount then
if value>BufferCount then
begin
For I:=FBufferCount to Value do
FBuffers[i]:=AllocRecordBuffer;
end
else if value<BufferCount then
if (value>=0) and (FActiveRecord>Value-1) then
begin
for i := 0 to (FActiveRecord-Value) do