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

* Fix compiler warning

Browse Source 
(cherry picked from commit 1d9a17377d)
This commit is contained in:
Michaël Van Canneyt 2023-02-04 13:03:36 +01:00 committed by marcoonthegit
parent 70967d03aa
commit 4e1e30b102
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 var
C : TSQLConnectionClass; C : TSQLConnectionClass;
S : String;
begin begin
C:=aDef.ConnectionClass; C:=aDef.ConnectionClass;
@ -671,7 +670,6 @@ begin
Result:=C.Create(Self.ConnectionOwner); Result:=C.Create(Self.ConnectionOwner);
try try
aDef.AssignTo(Result); aDef.AssignTo(Result);
S:=SetToString(PTypeInfo(TypeInfo(TDBEventTypes)),Integer(Self.LogEvents),True);
Result.LogEvents:=Self.LogEvents; Result.LogEvents:=Self.LogEvents;
Result.Transaction:=TSQLTransaction.Create(Result); Result.Transaction:=TSQLTransaction.Create(Result);
except except