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

* Remove thread range

Browse Source
This commit is contained in:
Michael Van Canneyt 2025-02-12 09:18:52 +01:00
parent b2adae02ca
commit 1affbdc510
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/wasi/src/rtl.webthreads.pas
View File

@ -193,14 +193,13 @@ Type
public public
Memory : TJSWebAssemblyMemory; Memory : TJSWebAssemblyMemory;
Module : TJSWebAssemblyModule; Module : TJSWebAssemblyModule;
ThreadRangeStart : NativeInt;
end; end;
{ TWorkerLoadCommandHelper } { TWorkerLoadCommandHelper }
TWorkerLoadCommandHelper = class helper for TWorkerLoadCommand TWorkerLoadCommandHelper = class helper for TWorkerLoadCommand
Class function CommandName : string; static; Class function CommandName : string; static;
Class function Create(aStartThreadIdRange : integer; aModule : TJSWebAssemblyModule; aMemory : TJSWebAssemblyMemory): TWorkerLoadCommand; static;reintroduce; Class function Create(aModule : TJSWebAssemblyModule; aMemory : TJSWebAssemblyMemory): TWorkerLoadCommand; static;reintroduce;
end; end;
@ -379,12 +378,10 @@ begin
Result:=cmdLoad; Result:=cmdLoad;
end; end;
class function TWorkerLoadCommandHelper.Create(aStartThreadIdRange: integer; class function TWorkerLoadCommandHelper.Create(aModule: TJSWebAssemblyModule; aMemory: TJSWebAssemblyMemory
aModule: TJSWebAssemblyModule; aMemory: TJSWebAssemblyMemory
): TWorkerLoadCommand; ): TWorkerLoadCommand;
begin begin
Result:=TWorkerLoadCommand(TWorkerCommand.NewWorker(CommandName)); Result:=TWorkerLoadCommand(TWorkerCommand.NewWorker(CommandName));
Result.ThreadRangeStart:=aStartThreadIdRange;
Result.Memory:=aMemory; Result.Memory:=aMemory;
Result.Module:=aModule; Result.Module:=aModule;
end; end;