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

* Fix interlockedincrement

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-02-05 12:53:14 +01:00
parent 2619e6b870
commit d07e34297f
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-web/src/jsonrpc/fpjsonrpc.pp
View File

@ -362,7 +362,11 @@ Type
TCustomJSONRPCHandlerManager = Class(TComponent) TCustomJSONRPCHandlerManager = Class(TComponent)
Private Private
FRegistering: Boolean; FRegistering: Boolean;
{$IFDEF CPU64}
FHandlerCount : Int64; FHandlerCount : Int64;
{$ELSE}
FHandlerCount : Integer;
{$ENDIF}
Protected Protected
procedure Initialize; virtual; procedure Initialize; virtual;
procedure DoClear; virtual; procedure DoClear; virtual;
@ -1827,7 +1831,11 @@ begin
N:=aContainer.Name; N:=aContainer.Name;
if N='' then if N='' then
N:=aContainer.ClassName; N:=aContainer.ClassName;
{$IFDEF CPU64}
N:=N+IntToStr(InterlockedIncrement64(FHandlerCount)); N:=N+IntToStr(InterlockedIncrement64(FHandlerCount));
{$ELSE}
N:=N+IntToStr(InterlockedIncrement(FHandlerCount));
{$ENDIF}
aContainer.Name:=N; aContainer.Name:=N;
O.InsertComponent(aContainer); O.InsertComponent(aContainer);
end; end;