paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-05 04:17:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Thread in lib demo - main window = main thread

Browse Source
This commit is contained in:
Michael Van Canneyt 2024-11-06 00:05:59 +01:00
parent de31826647
commit 10d2c51c02
4 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
demo/wasienv/threads/demothreads.lpi
View File

@ -44,6 +44,10 @@
<Item0 Name="PasJSIsProjectHTMLFile" Value="1"/>
</CustomData>
</Unit>
<Unit>
<Filename Value="../../../packages/wasi/src/rtl.threadcontroller.pas"/>
<IsPartOfProject Value="True"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>

2
demo/wasienv/threads/demothreads.lpr
View File

@ -4,7 +4,7 @@ program demowasithreads;
uses
browserconsole, browserapp, JS, Classes, SysUtils, Web, WebAssembly, types,
wasienv, Rtl.WebThreads, wasihostapp, wasithreadedapp ;
wasienv, Rtl.WebThreads, wasihostapp, wasithreadedapp, rtl.threadcontroller ;
Type

2
demo/wasienv/threads/index.html
View File

@ -40,7 +40,7 @@
<div>
<p>Created using &nbsp; <a target="_blank" href="https://wiki.freepascal.org/pas2js">pas2js.</a> </p>
<p>Pas2JS Sources: &nbsp; <a target="new" href="demothreads.lpr">Pas2JS Program</a></p>
<p>Webassembly Sources: &nbsp; <a target="new" href="threadedapp.pp">FPC Program</a></p>
<p>Webassembly Sources: &nbsp; <a target="new" href="threadapp.lpr">FPC Program</a></p>
</div>
</div>
</div>

5
demo/wasienv/threads/threadapp.lpr
View File

@ -1,4 +1,4 @@
library threadlib;
library threadapp;
{$mode objfpc}
{$h+}
{$i-}
@ -45,9 +45,6 @@ begin
With TCalcThread.Create(False) do
begin
DebugWriteln('Thread created');
// While true do
// DebugWriteln('Waiting for thread');
// DebugWriteln('thread ended');
end;
end;