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

* Allow to override thread support for worker thread app

Browse Source
This commit is contained in:
Michael Van Canneyt 2024-11-25 21:30:07 +01:00
parent 8e48a6903c
commit 80293fc588
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/wasi/src/wasiworkerthreadhost.pas
View File

@ -166,6 +166,7 @@ Type
procedure HandleConsoleWrite(Sender: TObject; aOutput: string);
function HandleCustomCommand(aData: TWorkerCommand): Boolean; virtual;
function CreateHost: TWASIHost; override;
function CreateWorkerThreadSupport(aEnv: TPas2JSWasiEnvironment): TWorkerThreadSupport; virtual;
procedure HandleMessage(aEvent: TJSEvent); override;
procedure ShowException(aError: Exception); override;
// Our thread support object
@ -713,6 +714,12 @@ begin
ConsoleChannel.postMessage(TWorkerConsoleCommand.Create(aOutput));
end;
function TWorkerThreadRunnerApplication.CreateWorkerThreadSupport(aEnv : TPas2JSWasiEnvironment) : TWorkerThreadSupport;
begin
Result:=TWorkerThreadSupport.Create(aEnv);
end;
function TWorkerThreadRunnerApplication.CreateHost: TWASIHost;
var
@ -721,7 +728,8 @@ var
begin
TH:=TWASIThreadHost.Create(Self);
TH.OnConsoleWrite:=@HandleConsoleWrite;
FThreadSupport:=TWorkerThreadSupport.Create(TH.WasiEnvironment);
FThreadSupport:=CreateWorkerThreadSupport(TH.WasiEnvironment);
FThreadSupport.OnSendCommand:=@DoOnSendCommand;
TH.ThreadSupport:=FThreadSupport; // Sets FThreadSupport.host
Result:=TH;