paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-22 16:29:10 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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