paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 16:28:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Make TSemaphore and TMutex opt-in for some platforms

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-11-12 08:49:41 +01:00
parent 652f21b656
commit d8700e5190
1 changed files with 21 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
packages/fcl-base/src/syncobjs.pp
View File

@ -13,6 +13,16 @@
**********************************************************************}
{$mode objfpc}
{$h+}
{$IF DEFINED(WINCE) or DEFINED(AIX) or DEFINED(NETBSD) or DEFINED (OPENBSD)}
{$DEFINE NO_SEMAPHORE_SUPPORT}
{$ENDIF}
{$IF DEFINED(WINCE)}
{$DEFINE NO_MUTEX_SUPPORT}
{$ENDIF}
{$IFNDEF FPC_DOTTEDUNITS}
unit syncobjs;
{$ENDIF FPC_DOTTEDUNITS}
@ -43,10 +53,12 @@ type
PSecurityAttributes = Pointer;
TEventHandle = Pointer;
{$IFNDEF NO_SEMAPHORE_SUPPORT}
{$IFDEF UNIX}
TPosixSemaphore = sem_t;
PPosixSemaphore = ^TPosixSemaphore;
{$ENDIF}
{$ENDIF}
const
INFINITE = Cardinal(-1);
@ -166,7 +178,8 @@ type
{$endif VER3_0}
{$ENDIF NOPOINTER}
end;
{$IFNDEF NO_SEMAPHORE_SUPPORT}
TSemaphore = class(THandleObject)
{$IFDEF UNIX}
Fsem: TPosixSemaphore;
@ -181,7 +194,9 @@ type
function Release(aCount: Integer): Integer; reintroduce; overload;
function WaitFor(aTimeout: Cardinal = INFINITE): TWaitResult; override;
end;
{$ENDIF}
{$IFNDEF NO_MUTEX_SUPPORT}
TMutex = class(THandleObject)
private
{$IFDEF UNIX}
@ -196,7 +211,7 @@ type
procedure Acquire; override;
procedure Release; override;
end;
{$ENDIF}
@ -652,7 +667,7 @@ end;
{ ---------------------------------------------------------------------
TSemaphore
---------------------------------------------------------------------}
{$IFNDEF NO_SEMAPHORE_SUPPORT}
constructor TSemaphore.Create(aUseCOMWait: boolean = false);
begin
@ -816,11 +831,13 @@ begin
{$ENDIF}
end;
{$ENDIF NO_SEMAPHORE_SUPPORT}
{ ---------------------------------------------------------------------
TMutex
---------------------------------------------------------------------}
{$IFNDEF NO_MUTEX_SUPPORT}
constructor TMutex.Create(aUseCOMWait: Boolean = False);
@ -983,5 +1000,6 @@ begin
CheckOSError(pthread_mutex_unlock(@FMutex));
{$ENDIF UNIX}
end;
{$ENDIF NO_MUTEX_SUPPORT}
end.