From 6dfd2de1882096019b27c144ffc2db2636b5d466 Mon Sep 17 00:00:00 2001
From: Nikolay Nikolov <nickysn@gmail.com>
Date: Fri, 23 Aug 2024 11:34:08 +0300
Subject: [PATCH] + WebAssembly threads: call FreeStackAndTlsBlock in
 WasiWaitForThreadTerminate

---
 rtl/wasi/systhrd.inc | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/rtl/wasi/systhrd.inc b/rtl/wasi/systhrd.inc
index e04213adfd..1ae66a75f5 100644
--- a/rtl/wasi/systhrd.inc
+++ b/rtl/wasi/systhrd.inc
@@ -575,6 +575,8 @@ begin
   UnLockMuTex(PWasmThread(ThreadHandle)^.Running);
   {$IFDEF DEBUGWASMTHREADS}DebugWriteln('WaitForThreadTerminate('+IntToStr(PtrUINT(TH))+') : Lock released');{$ENDIF}
   WasiWaitForThreadTerminate:=DWord(Res);
+  {$IFDEF DEBUGWASMTHREADS}DebugWriteln('WaitForThreadTerminate('+IntToStr(PtrUINT(TH))+') : FreeStackAndTlsBlock');{$ENDIF}
+  FreeStackAndTlsBlock(TH);
 end;
 
 function WasiThreadSetPriority(threadHandle : TThreadID; Prio: longint): boolean;