From 755e5ffc1e27a78fa51869f6e97b69ac99292c70 Mon Sep 17 00:00:00 2001
From: Michael Van Canneyt <michael@freepascal.org>
Date: Thu, 30 Jan 2025 14:56:26 +0100
Subject: [PATCH] * Conditional logging

---
 packages/wasi/src/wasiworkerthreadhost.pas | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

diff --git a/packages/wasi/src/wasiworkerthreadhost.pas b/packages/wasi/src/wasiworkerthreadhost.pas
index 92f0e0f..6da1c8e 100644
--- a/packages/wasi/src/wasiworkerthreadhost.pas
+++ b/packages/wasi/src/wasiworkerthreadhost.pas
@@ -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));