From 8353c6620fc5af755c9923463877ce12860af14b Mon Sep 17 00:00:00 2001
From: Michael Van Canneyt <michael@freepascal.org>
Date: Thu, 24 Apr 2025 16:05:10 +0200
Subject: [PATCH] * Adapt standard worker based on new threading classes

---
 packages/wasi/worker/pas2jsthreadworker.lpi | 18 +++++++++++++++++-
 packages/wasi/worker/pas2jsthreadworker.pas |  2 +-
 2 files changed, 18 insertions(+), 2 deletions(-)

diff --git a/packages/wasi/worker/pas2jsthreadworker.lpi b/packages/wasi/worker/pas2jsthreadworker.lpi
index 2be9175..d4af529 100644
--- a/packages/wasi/worker/pas2jsthreadworker.lpi
+++ b/packages/wasi/worker/pas2jsthreadworker.lpi
@@ -29,6 +29,22 @@
         <Filename Value="pas2jsthreadworker.pas"/>
         <IsPartOfProject Value="True"/>
       </Unit>
+      <Unit>
+        <Filename Value="../../fcl-base/src/workerapp.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit>
+      <Unit>
+        <Filename Value="../src/wasiworkerapp.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit>
+      <Unit>
+        <Filename Value="../src/rtl.threadrunner.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit>
+      <Unit>
+        <Filename Value="../src/rtl.workerthreadhost.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit>
     </Units>
   </ProjectOptions>
   <CompilerOptions>
@@ -43,8 +59,8 @@
     <Parsing>
       <SyntaxOptions>
         <AllowLabel Value="False"/>
-        <CPPInline Value="False"/>
         <UseAnsiStrings Value="False"/>
+        <CPPInline Value="False"/>
       </SyntaxOptions>
     </Parsing>
     <CodeGeneration>
diff --git a/packages/wasi/worker/pas2jsthreadworker.pas b/packages/wasi/worker/pas2jsthreadworker.pas
index 4a85ead..4afbb9c 100644
--- a/packages/wasi/worker/pas2jsthreadworker.pas
+++ b/packages/wasi/worker/pas2jsthreadworker.pas
@@ -3,7 +3,7 @@ program pas2jsthreadworker;
 {$mode objfpc}
 
 uses
-  Classes, WasiWorkerThreadHost;
+  Classes, rtl.threadrunner;
 
 type
   { TApplication }