2
0
Michaël Van Canneyt 8 сар өмнө
parent
commit
5887b1fee3

+ 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;