Browse Source

Allow mutex on wasm

Michaël Van Canneyt 8 months ago
parent
commit
5887b1fee3
1 changed files with 10 additions and 2 deletions
  1. 10 2
      packages/fcl-base/src/syncobjs.pp

+ 10 - 2
packages/fcl-base/src/syncobjs.pp

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