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

* Call inherited

Browse Source
This commit is contained in:
Michael Van Canneyt 2025-04-28 16:43:49 +02:00
parent 6d6564ba78
commit 604c4c3541
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/wasi/src/rtl.workerthreadhost.pas
View File

@ -35,7 +35,7 @@ Type
procedure HandleRawRpcCommand(aCommand: TCustomWorkerCommand);
Protected
procedure DoHostCreated; override;
procedure RegisterMessageHandlers; virtual;
procedure RegisterMessageHandlers; override;
procedure HandleExecuteCommand(aCmd: TWorkerExecuteCommand); virtual;
procedure HandleRpcCommand(aCmd: TWorkerRpcCommand); virtual;
Public
@ -148,6 +148,7 @@ end;
procedure TWorkerThreadControllerApplication.RegisterMessageHandlers;
begin
Inherited;
TCommandDispatcher.Instance.RegisterCommandHandler(cmdExecute,@HandleRawExecuteCommand);
TCommandDispatcher.Instance.RegisterCommandHandler(cmdRpc,@HandleRawRPCCommand);
end;