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

ID only 32 bit

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-01-30 10:45:52 +01:00
parent 01d3af48a1
commit bdf5343770
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -39,9 +39,9 @@ type
TPGHandle = Class(TSQLHandle)
strict private
class var _HID : Int64;
class var _HID : Integer;
private
FHandleID : Int64;
FHandleID : Integer;
FConnected: Boolean;
FCOnnection: TPQConnection;
FDBName : String;
@ -267,7 +267,7 @@ begin
FConnection:=aConnection;
FCursorList:=TThreadList.Create;
FCursorList.Duplicates:=dupIgnore;
FHandleID:=InterlockedIncrement64(_HID);
FHandleID:=InterlockedIncrement(_HID);
{$IFDEF PQDEBUG}
Writeln('>>> ',FHandleID,' [',TThread.CurrentThread.ThreadID, '] allocating handle ');
{$ENDIF}