From eaf665e8c470d83cda25559d443a562cd446441c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Sat, 4 Feb 2023 13:04:39 +0100
Subject: [PATCH] * Fix some compiler warnings
---
packages/fcl-db/src/sqldb/postgres/pqconnection.pp | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/packages/fcl-db/src/sqldb/postgres/pqconnection.pp b/packages/fcl-db/src/sqldb/postgres/pqconnection.pp
index 8f5a17483c..52014d7790 100644
--- a/packages/fcl-db/src/sqldb/postgres/pqconnection.pp
+++ b/packages/fcl-db/src/sqldb/postgres/pqconnection.pp
@@ -56,6 +56,9 @@ type
Procedure RegisterCursor(Cursor : TPQCursor);
Procedure UnRegisterCursor(Cursor : TPQCursor);
procedure UnprepareStatement(Cursor: TPQCursor; Force: Boolean);
+ Public
+ Constructor Create(aConnection : TPQConnection;aDBName :string);
+ Destructor Destroy; override;
Procedure Connect;
Procedure Disconnect;
Procedure StartTransaction;
@@ -66,8 +69,6 @@ type
Function DescribePrepared(StmtName : String): PPGresult;
Function Exec(aSQL : String; aClearResult : Boolean; aError : String = '') : PPGresult;
function ExecPrepared(stmtName: AnsiString; nParams:longint; paramValues:PPchar; paramLengths:Plongint;paramFormats:Plongint; aClearResult : Boolean) : PPGresult;
- Constructor Create(aConnection : TPQConnection;aDBName :string);
- Destructor Destroy; override;
procedure CheckResultError(var res: PPGresult; Actions : TCheckResultActions; const ErrMsg: string);
Property Connection : TPQConnection Read FCOnnection;
Property NativeConn : PPGConn Read FNativeConn;
@@ -844,7 +845,6 @@ function TPGHandle.ExecPrepared(stmtName: AnsiString; nParams: longint;
aClearResult: Boolean): PPGresult;
var
- s : string;
acts : TCheckResultActions;
begin