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

* Take into account SendOutputToBrowser

Browse Source
This commit is contained in:
Michael Van Canneyt 2025-03-24 10:24:49 +01:00
parent a4ffb0957d
commit 57c841e471
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/wasiworkerthreadhost.pas
View File

@ -673,7 +673,8 @@ end;
procedure TWorkerThreadRunnerApplication.HandleConsoleWrite(Sender: TObject; aOutput: string); procedure TWorkerThreadRunnerApplication.HandleConsoleWrite(Sender: TObject; aOutput: string);
begin begin
ConsoleChannel.postMessage(TWorkerConsoleCommand.Create(aOutput)); if SendOutputToBrowser then
ConsoleChannel.postMessage(TWorkerConsoleCommand.Create(aOutput));
end; end;
function TWorkerThreadRunnerApplication.CreateWorkerThreadSupport(aEnv : TPas2JSWasiEnvironment) : TWorkerThreadSupport; function TWorkerThreadRunnerApplication.CreateWorkerThreadSupport(aEnv : TPas2JSWasiEnvironment) : TWorkerThreadSupport;