paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 03:29:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

Allow mutex on wasm

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-12-03 23:37:58 +01:00
parent 3a481d9590
commit 5887b1fee3
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -879,7 +879,11 @@ begin
if (FHandle=TEventHandle(0)) then
RaiseLastOSError;
{$ELSE}
raise ESyncObjectException.Create(SErrMutexNotSupported);
{$IFDEF CPUWASM}
// Todo
{$ELSE}
raise ESync ObjectException.Create(SErrMutexNotSupported);
{$ENDIF CPUWASM}
{$ENDIF WINDOWS}
{$ENDIF UNIX}
end;
@ -906,7 +910,11 @@ begin
if FHandle=TEventHandle(0) then
RaiseLastOSError;
{$ELSE}
raise ESyncObjectException.Create(SErrMutexNotSupported);
{$IFDEF CPUWASM}
// Todo
{$ELSE}
raise ESync ObjectException.Create(SErrMutexNotSupported);
{$ENDIF CPUWASM}
{$ENDIF WINDOWS}
{$ENDIF UNIX}
end;