paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 02:08:18 +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;
// Add connection to pool.
procedure AddHandle(T: TPGHandle);
{$IFNDEF VER3_2}
function PortParamName: string; override;
{$endif}
procedure DoInternalConnect; override;
procedure DoInternalDisconnect; override;
function GetHandle : pointer; override;
@ -905,7 +903,6 @@ begin
else if Not (PQresultStatus(res) in [PGRES_COMMAND_OK,PGRES_TUPLES_OK]) then
begin
HaveError:=True;
{$IFNDEF VER3_2}
SEVERITY:=PQresultErrorField(res,PG_DIAG_SEVERITY);
SQLSTATE:=PQresultErrorField(res,PG_DIAG_SQLSTATE);
MESSAGE_PRIMARY:=PQresultErrorField(res,PG_DIAG_MESSAGE_PRIMARY);
@ -917,7 +914,6 @@ begin
COLUMN_NAME:=PQresultErrorField(res,PG_DIAG_COLUMN_NAME);
DATATYPE_NAME:=PQresultErrorField(res,PG_DIAG_DATATYPE_NAME);
CONSTRAINT_NAME:=PQresultErrorField(res,PG_DIAG_CONSTRAINT_NAME);
{$ENDIF}
sErr:=PQresultErrorMessage(res);
if Connection.VerboseErrors then
begin
@ -1113,7 +1109,6 @@ const TypeStrings : array[TFieldType] of string =
'numeric', // ftFMTBcd
'Unknown', // ftFixedWideChar
'Unknown' // ftWideMemo
{IFNDEF VER3_2}
,
'Unknown', // ftOraTimeStamp
'Unknown', // ftOraInterval
@ -1122,7 +1117,6 @@ const TypeStrings : array[TFieldType] of string =
'Unknown', // ftByte
'Unknown', // ftExtended
'real' // ftSingle
{ENDIF}
);
@ -1654,12 +1648,10 @@ begin
end;
end;
{$IFNDEF VER3_2}
function TPQConnection.PortParamName: string;
begin
Result := 'port';
end;
{$ENDIF}
procedure TPQConnection.UpdateIndexDefs(IndexDefs : TIndexDefs;TableName : string);