paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-09-14 11:09:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Adapt standard worker based on new threading classes

Browse Source
This commit is contained in:
Michael Van Canneyt 2025-04-24 16:05:10 +02:00
parent ec03a7146c
commit 8353c6620f
2 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
packages/wasi/worker/pas2jsthreadworker.lpi
View File

@ -29,6 +29,22 @@
<Filename Value="pas2jsthreadworker.pas"/> <Filename Value="pas2jsthreadworker.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
</Unit> </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> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
@ -43,8 +59,8 @@
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<AllowLabel Value="False"/> <AllowLabel Value="False"/>
<CPPInline Value="False"/>
<UseAnsiStrings Value="False"/> <UseAnsiStrings Value="False"/>
<CPPInline Value="False"/>
</SyntaxOptions> </SyntaxOptions>
</Parsing> </Parsing>
<CodeGeneration> <CodeGeneration>

2
packages/wasi/worker/pas2jsthreadworker.pas
View File

@ -3,7 +3,7 @@ program pas2jsthreadworker;
{$mode objfpc} {$mode objfpc}
uses uses
Classes, WasiWorkerThreadHost; Classes, rtl.threadrunner;
type type
{ TApplication } { TApplication }