Jelajahi Sumber

* Comment out debug in loop

Michaël Van Canneyt 2 tahun lalu
induk
melakukan
b93d49df9b
1 mengubah file dengan 3 tambahan dan 2 penghapusan
  1. 3 2
      rtl/wasi/wasmmutex.inc

+ 3 - 2
rtl/wasi/wasmmutex.inc

@@ -49,13 +49,14 @@ begin
     Res:=fpc_wasm32_i32_atomic_rmw_cmpxchg_u(@M.Locked,0,1)=0
   else
     begin
-    {$IFDEF DEBUGWASMTHREADS}DebugWriteln('TryLockMutex : we ('+IntToStr(PtrUint(GetSelfThread))+') own the lock.');{$ENDIF}
+// TryLockMutex is called in a loop. Be VERY careful when adding this log.
+//    {$IFDEF DEBUGWASMTHREADS}DebugWriteln('TryLockMutex : we ('+IntToStr(PtrUint(GetSelfThread))+') own the lock.');{$ENDIF}
     end;
   if Res then
     begin
     if (MutexKind(M)=mkRecursive) or (M.Count=0) then
       InterLockedIncrement(M.Count);
-    {$IFDEF DEBUGWASMTHREADS}DebugWriteln('TryLockMutex : setting owner to '+IntToStr(PtrUint(GetSelfThread))+'.');{$ENDIF}
+//    {$IFDEF DEBUGWASMTHREADS}DebugWriteln('TryLockMutex : setting owner to '+IntToStr(PtrUint(GetSelfThread))+'.');{$ENDIF}
     M.Owner:=GetSelfThread;
     end;
   TryLockMutex:=Res;