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

* Fix compiler warning

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-02-04 13:03:36 +01:00
parent a33bd31734
commit 1d9a17377d
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-db/src/sqldb/sqldbpool.pp
View File

@ -660,7 +660,6 @@ function TSQLDBConnectionmanager.CreateConnection(const aDef: TSQLDBConnectionDe
var
C : TSQLConnectionClass;
S : String;
begin
C:=aDef.ConnectionClass;
@ -671,7 +670,6 @@ begin
Result:=C.Create(Self.ConnectionOwner);
try
aDef.AssignTo(Result);
S:=SetToString(PTypeInfo(TypeInfo(TDBEventTypes)),Integer(Self.LogEvents),True);
Result.LogEvents:=Self.LogEvents;
Result.Transaction:=TSQLTransaction.Create(Result);
except