paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-09-23 10:59:05 +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 interface
uses uses
JS, Rtl.WebThreads, weborworker, wasm.pas2js.websocketapi, wasm.websocket.shared; JS, Rtl.WebThreads, Rtl.WorkerCommands, weborworker, wasm.pas2js.websocketapi, wasm.websocket.shared;
type type
// When an unexpected error occurred. // When an unexpected error occurred.
TWebsocketSetMemCommand = class external name 'Object' (TWorkerCommand) TWebsocketSetMemCommand = class external name 'Object' (TCustomWorkerCommand)
public public
Buffer : TJSSharedArrayBuffer; Buffer : TJSSharedArrayBuffer;
end; end;
@ -57,6 +57,8 @@ type
implementation implementation
uses sysutils;
{ TWebsocketSetMemCommandHelper } { TWebsocketSetMemCommandHelper }
class function TWebsocketSetMemCommandHelper.CommandName: string; class function TWebsocketSetMemCommandHelper.CommandName: string;
@ -67,7 +69,7 @@ end;
class function TWebsocketSetMemCommandHelper.CreateNew(aBuffer : TJSSharedArrayBuffer; aThreadID: Integer): TWebsocketSetMemCommand; class function TWebsocketSetMemCommandHelper.CreateNew(aBuffer : TJSSharedArrayBuffer; aThreadID: Integer): TWebsocketSetMemCommand;
begin begin
Result:= TWebsocketSetMemCommand(TWorkerCommand.NewWorker(CommandName,aThreadID)); Result:= TWebsocketSetMemCommand(createCommand(CommandName,IntToStr(aThreadID)));
Result.Buffer:=aBuffer; Result.Buffer:=aBuffer;
end; end;