paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-09-15 09:19:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix compilation

Browse Source
This commit is contained in:
Michael Van Canneyt 2025-04-25 17:09:35 +02:00
parent 4e58143aa7
commit bf7d156c38
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/wasm-utils/src/wasm.pas2js.websocket.worker.pas
View File

@ -6,12 +6,12 @@ unit wasm.pas2js.websocket.worker;
interface
uses
JS, Rtl.WebThreads, weborworker, wasm.pas2js.websocketapi, wasm.websocket.shared;
JS, Rtl.WebThreads, Rtl.WorkerCommands, weborworker, wasm.pas2js.websocketapi, wasm.websocket.shared;
type
// When an unexpected error occurred.
TWebsocketSetMemCommand = class external name 'Object' (TWorkerCommand)
TWebsocketSetMemCommand = class external name 'Object' (TCustomWorkerCommand)
public
Buffer : TJSSharedArrayBuffer;
end;
@ -57,6 +57,8 @@ type
implementation
uses sysutils;
{ TWebsocketSetMemCommandHelper }
class function TWebsocketSetMemCommandHelper.CommandName: string;
@ -67,7 +69,7 @@ end;
class function TWebsocketSetMemCommandHelper.CreateNew(aBuffer : TJSSharedArrayBuffer; aThreadID: Integer): TWebsocketSetMemCommand;
begin
Result:= TWebsocketSetMemCommand(TWorkerCommand.NewWorker(CommandName,aThreadID));
Result:= TWebsocketSetMemCommand(createCommand(CommandName,IntToStr(aThreadID)));
Result.Buffer:=aBuffer;
end;