浏览代码

* Send correct message in case of unhandled message

Michael Van Canneyt 9 月之前
父节点
当前提交
3055de55dd
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/wasi/src/rtl.webthreads.pas

+ 1 - 1
packages/wasi/src/rtl.webthreads.pas

@@ -570,7 +570,7 @@ begin
   P:=TWorkerExceptionCommand.New;
   P.ExceptionClass:='ENotSupportedException';
   P.ExceptionMessage:='Unsupported command : '+TJSJSON.Stringify(aCommand);
-  SendCommand(aCommand);
+  SendCommand(P);
 end;
 
 procedure TWasmThreadSupport.SendCommand(aCommand: TWorkerCommand);