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

* Threadhost property for easy access to thread host class

Browse Source
This commit is contained in:
Michael Van Canneyt 2025-03-24 10:19:56 +01:00
parent e7cba1acdc
commit a4ffb0957d
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -190,6 +190,7 @@ Type
TWorkerThreadControllerApplication = class(TWorkerWASIHostApplication) TWorkerThreadControllerApplication = class(TWorkerWASIHostApplication)
Private Private
FThreadSupport : TThreadController; FThreadSupport : TThreadController;
function GetThreadHost: TWASIThreadControllerHost;
Protected Protected
function CreateThreadSupport(aEnv: TPas2JSWASIEnvironment): TThreadController; virtual; function CreateThreadSupport(aEnv: TPas2JSWASIEnvironment): TThreadController; virtual;
procedure HandleConsoleWrite(Sender: TObject; aOutput: string); virtual; procedure HandleConsoleWrite(Sender: TObject; aOutput: string); virtual;
@ -201,6 +202,8 @@ Type
Public Public
procedure ShowException(aError: Exception); override; procedure ShowException(aError: Exception); override;
property ThreadSupport : TThreadController Read FThreadSupport; property ThreadSupport : TThreadController Read FThreadSupport;
property ThreadHost : TWASIThreadControllerHost read GetThreadHost;
end; end;
function GetJSClassName(aObj : TJSObject) : string; function GetJSClassName(aObj : TJSObject) : string;
@ -875,6 +878,11 @@ begin
end; end;
end; end;
function TWorkerThreadControllerApplication.GetThreadHost: TWASIThreadControllerHost;
begin
Result:=(Host as TWASIThreadControllerHost)
end;
function TWorkerThreadControllerApplication.CreateThreadSupport(aEnv : TPas2JSWASIEnvironment) : TThreadController; function TWorkerThreadControllerApplication.CreateThreadSupport(aEnv : TPas2JSWASIEnvironment) : TThreadController;
begin begin