Browse Source

* fixed compilation error, introduced in a0ac317aae017c1bf828084410210324448661c9

Nikolay Nikolov 11 months ago
parent
commit
919f8f383d
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/wasi/systhrd.inc

+ 1 - 1
rtl/wasi/systhrd.inc

@@ -589,7 +589,7 @@ begin
   WasiWaitForThreadTerminate:=DWord(Res);
   {$IFDEF DEBUGWASMTHREADS}DebugWriteln('WaitForThreadTerminate('+IntToStr(PtrUINT(TH))+') : Waiting until ThreadHasFinished becomes true');{$ENDIF}
   repeat
-  until fpc_wasm32_i32_atomic_load8_u(@P^.ThreadHasFinished)<>0;
+  until fpc_wasm32_i32_atomic_load8_u(@TH^.ThreadHasFinished)<>0;
   {$IFDEF DEBUGWASMTHREADS}DebugWriteln('WaitForThreadTerminate('+IntToStr(PtrUINT(TH))+') : FreeStackAndTlsBlock');{$ENDIF}
   FreeStackAndTlsBlock(TH);
 end;