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

* Take into account SendOutputToBrowser (2)

Browse Source
This commit is contained in:
Michael Van Canneyt 2025-03-24 10:27:58 +01:00
parent 57c841e471
commit d019335646
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

@ -846,7 +846,8 @@ end;
procedure TWorkerThreadControllerApplication.HandleConsoleWrite(Sender: TObject; aOutput: string); procedure TWorkerThreadControllerApplication.HandleConsoleWrite(Sender: TObject; aOutput: string);
begin begin
FConsoleChannel.postMessage(TWorkerConsoleCommand.Create(aOutput,0)); if SendOutputToBrowser then
FConsoleChannel.postMessage(TWorkerConsoleCommand.Create(aOutput,0));
end; end;
function TWorkerThreadControllerApplication.HandleCustomCommand(aData : TWorkerCommand) : Boolean; function TWorkerThreadControllerApplication.HandleCustomCommand(aData : TWorkerCommand) : Boolean;