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

* Fix compiler warnings/hints

Browse Source
This commit is contained in:
Michael Van Canneyt 2025-01-23 11:36:10 +01:00
parent 9f1aea6094
commit 11092a2fd4
1 changed files with 7 additions and 1 deletions

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

@ -168,6 +168,7 @@ Type
function CreateHost: TWASIHost; override;
function CreateWorkerThreadSupport(aEnv: TPas2JSWasiEnvironment): TWorkerThreadSupport; virtual;
procedure HandleMessage(aEvent: TJSEvent); override;
Public
procedure ShowException(aError: Exception); override;
// Our thread support object
Property ThreadSupport : TWorkerThreadSupport Read FThreadSupport Write FThreadSupport;
@ -331,11 +332,13 @@ end;
function TWorkerThreadSupport.thread_detach(thread_id: Integer): Integer;
begin
Result:=0;
if thread_id=0 then ;
end;
function TWorkerThreadSupport.thread_cancel(thread_id: Integer): Integer;
begin
Result:=0;
if thread_id=0 then ;
end;
function TWorkerThreadSupport.thread_self: Integer;
@ -393,6 +396,7 @@ end;
procedure TWorkerThreadSupport.CancelWasmModule(aCommand : TWorkerCancelCommand);
begin
if (aCommand<>Nil) then ;
// todo
end;
@ -827,6 +831,8 @@ function GetJSClassName(aObj : TJSObject) : string;
begin
Result:='';
if aObj=Nil then
exit;
asm
return aObj.constructor.name;
end;
@ -909,7 +915,7 @@ end;
function TWorkerThreadControllerApplication.CreateThreadSupport(aEnv : TPas2JSWASIEnvironment) : TThreadController;
begin
TThreadController.Create(aEnv,ThreadRunnerScript,20);
Result:=TThreadController.Create(aEnv,ThreadRunnerScript,20);
end;
function TWorkerThreadControllerApplication.CreateHost: TWASIHost;