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