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

* Conditional logging

Browse Source
This commit is contained in:
Michael Van Canneyt 2025-01-30 14:56:26 +01:00
parent 22746ebdc3
commit 755e5ffc1e
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4,6 +4,7 @@ unit wasiworkerthreadhost;
{$mode ObjFPC}
{$modeswitch externalclass}
{ $define NOLOGAPICALLS}
interface
@ -453,12 +454,16 @@ procedure TWorkerThreadSupport.RunWasmModule(aCommand : TWorkerRunCommand);
begin
if (FState=wsNeutral) then
begin
Writeln('No webassembly loaded');
{$IFNDEF NOLOGAPICALLS}
DoLog('No webassembly loaded');
{$ENDIF}
exit; // Todo: send error back
end;
if (FState in [wsRunning,wsRunWaiting]) then
begin
Writeln('Webassembly already running');
{$IFNDEF NOLOGAPICALLS}
DoLog('Webassembly already running');
{$ENDIF}
exit; // Todo: send error back
end;
// Writeln('Entering TWorkerThreadSupport.RunWasmModule '+TJSJSON.Stringify(aCommand));
@ -763,9 +768,15 @@ Var
aData : TWorkerCommand;
begin
{$IFNDEF NOLOGAPICALLS}
DoLog(etDebug,'Message received in worker');
{$ENDIF}
if IsObject(aMessageEvent.Data) and TJSObject(aMessageEvent.Data).hasOwnProperty('Command') then
begin
aData:=TWorkerCommand(aMessageEvent.Data);
{$IFNDEF NOLOGAPICALLS}
DoLog(etDebug,'Command Message received in worker: '+TJSJSON.Stringify(aData));
{$ENDIF}
if not HandleCustomCommand(aData) then
FThreadSupport.HandleCommand(aData);
end
@ -899,9 +910,11 @@ var
aData: TWorkerCommand;
begin
Writeln('Thread Message received');
if IsObject(aMessageEvent.Data) and TJSObject(aMessageEvent.Data).hasOwnProperty('Command') then
begin
aData:=TWorkerCommand(aMessageEvent.Data);
Writeln('Command message received: '+TJSJSON.Stringify(aData));
case aData.Command of
cmdExecute : HandleExecuteCommand(TWorkerExecuteCommand(aData));
cmdRpc : HandleRPCCommand(TWorkerRpcCommand(aData));