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

* remove no longer needed ifdefs

Browse Source
This commit is contained in:
marcoonthegit 2024-02-09 17:37:14 +01:00
parent 4379480075
commit 582fcecee3
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-db/src/sqldb/postgres/pqconnection.pp
View File

@ -157,9 +157,7 @@ type
Function ErrorOnUnknownType : Boolean; Function ErrorOnUnknownType : Boolean;
// Add connection to pool. // Add connection to pool.
procedure AddHandle(T: TPGHandle); procedure AddHandle(T: TPGHandle);
{$IFNDEF VER3_2}
function PortParamName: string; override; function PortParamName: string; override;
{$endif}
procedure DoInternalConnect; override; procedure DoInternalConnect; override;
procedure DoInternalDisconnect; override; procedure DoInternalDisconnect; override;
function GetHandle : pointer; override; function GetHandle : pointer; override;
@ -905,7 +903,6 @@ begin
else if Not (PQresultStatus(res) in [PGRES_COMMAND_OK,PGRES_TUPLES_OK]) then else if Not (PQresultStatus(res) in [PGRES_COMMAND_OK,PGRES_TUPLES_OK]) then
begin begin
HaveError:=True; HaveError:=True;
{$IFNDEF VER3_2}
SEVERITY:=PQresultErrorField(res,PG_DIAG_SEVERITY); SEVERITY:=PQresultErrorField(res,PG_DIAG_SEVERITY);
SQLSTATE:=PQresultErrorField(res,PG_DIAG_SQLSTATE); SQLSTATE:=PQresultErrorField(res,PG_DIAG_SQLSTATE);
MESSAGE_PRIMARY:=PQresultErrorField(res,PG_DIAG_MESSAGE_PRIMARY); MESSAGE_PRIMARY:=PQresultErrorField(res,PG_DIAG_MESSAGE_PRIMARY);
@ -917,7 +914,6 @@ begin
COLUMN_NAME:=PQresultErrorField(res,PG_DIAG_COLUMN_NAME); COLUMN_NAME:=PQresultErrorField(res,PG_DIAG_COLUMN_NAME);
DATATYPE_NAME:=PQresultErrorField(res,PG_DIAG_DATATYPE_NAME); DATATYPE_NAME:=PQresultErrorField(res,PG_DIAG_DATATYPE_NAME);
CONSTRAINT_NAME:=PQresultErrorField(res,PG_DIAG_CONSTRAINT_NAME); CONSTRAINT_NAME:=PQresultErrorField(res,PG_DIAG_CONSTRAINT_NAME);
{$ENDIF}
sErr:=PQresultErrorMessage(res); sErr:=PQresultErrorMessage(res);
if Connection.VerboseErrors then if Connection.VerboseErrors then
begin begin
@ -1113,7 +1109,6 @@ const TypeStrings : array[TFieldType] of string =
'numeric', // ftFMTBcd 'numeric', // ftFMTBcd
'Unknown', // ftFixedWideChar 'Unknown', // ftFixedWideChar
'Unknown' // ftWideMemo 'Unknown' // ftWideMemo
{IFNDEF VER3_2}
, ,
'Unknown', // ftOraTimeStamp 'Unknown', // ftOraTimeStamp
'Unknown', // ftOraInterval 'Unknown', // ftOraInterval
@ -1122,7 +1117,6 @@ const TypeStrings : array[TFieldType] of string =
'Unknown', // ftByte 'Unknown', // ftByte
'Unknown', // ftExtended 'Unknown', // ftExtended
'real' // ftSingle 'real' // ftSingle
{ENDIF}
); );
@ -1654,12 +1648,10 @@ begin
end; end;
end; end;
{$IFNDEF VER3_2}
function TPQConnection.PortParamName: string; function TPQConnection.PortParamName: string;
begin begin
Result := 'port'; Result := 'port';
end; end;
{$ENDIF}
procedure TPQConnection.UpdateIndexDefs(IndexDefs : TIndexDefs;TableName : string); procedure TPQConnection.UpdateIndexDefs(IndexDefs : TIndexDefs;TableName : string);