Skip to content
Permalink
Browse files

fixed TSQLDBConnectionPropertiesThreadSafe.CurrentThreadConnectionIndex

  • Loading branch information...
Arnaud Bouchez
Arnaud Bouchez committed Jun 12, 2019
1 parent 0a60edf commit 58df02ae9138fb6e6d7616c6b8ea56aa6da7f541
Showing with 11 additions and 11 deletions.
  1. +9 −9 SynCommons.pas
  2. +1 −1 SynDB.pas
  3. +1 −1 SynopseCommit.inc
end;

function TDocVariantData.DeleteByValue(const aValue: Variant;
CaseInsensitive: boolean=false): integer;
CaseInsensitive: boolean): integer;
var ndx: integer;
begin
result := 0;
if VarIsEmptyOrNull(aValue) then begin
for ndx := VCount-1 downto 0 do
if VarDataIsEmptyOrNull(@VValue[ndx]) then begin
Delete(ndx);
inc(result);
end;
if VarDataIsEmptyOrNull(@VValue[ndx]) then begin
Delete(ndx);
inc(result);
end;
end else
for ndx := VCount-1 downto 0 do
if SortDynArrayVariantComp(TVarData(VValue[ndx]),TVarData(aValue),CaseInsensitive)=0 then begin
Delete(ndx);
inc(result);
end;
if SortDynArrayVariantComp(TVarData(VValue[ndx]),TVarData(aValue),CaseInsensitive)=0 then begin
Delete(ndx);
inc(result);
end;
end;

function TDocVariantData.DeleteByStartName(aStartName: PUTF8Char; aStartNameLen: integer): integer;
@@ -6432,7 +6432,7 @@ function TSQLDBConnectionPropertiesThreadSafe.CurrentThreadConnectionIndex: Inte
exit;
end;
result := 0;
while result<fConnectionPool.Count-1 do begin
while result<fConnectionPool.Count do begin
conn := TSQLDBConnectionThreadSafe(fConnectionPool.List[result]);
if conn.IsOutdated(tix) then // to guarantee reconnection
fConnectionPool.Delete(result) else begin
@@ -1 +1 @@
'1.18.5233'
'1.18.5234'

0 comments on commit 58df02a

Please sign in to comment.
You can’t perform that action at this time.