From 74a4550ff01a1cee4fff5c5a5a7361729608613c Mon Sep 17 00:00:00 2001
From: Nikolay Nikolov <nickysn@gmail.com>
Date: Sun, 4 Aug 2024 21:09:18 +0300
Subject: [PATCH] * WebAssembly threads: fix TThread.WaitFor (use -1 instead of
 0 to signal infinite timeout)

---
 rtl/wasi/tthread.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/wasi/tthread.inc b/rtl/wasi/tthread.inc
index edfe2facad..06de825035 100644
--- a/rtl/wasi/tthread.inc
+++ b/rtl/wasi/tthread.inc
@@ -216,7 +216,7 @@ end;
 function TThread.WaitFor: Integer;
 
 begin
-  WaitFor:=WaitForThreadTerminate(FThreadID,0);
+  WaitFor:=WaitForThreadTerminate(FThreadID,-1);
 end;
 
 {$else FPC_WASM_THREADS}