|
@@ -412,9 +412,6 @@ end;
|
|
|
|
|
|
|
|
constructor TThreadController.Create(aWorkerScript: String; aSpawnWorkerCount: integer);
|
|
constructor TThreadController.Create(aWorkerScript: String; aSpawnWorkerCount: integer);
|
|
|
|
|
|
|
|
-Var
|
|
|
|
|
- I : Integer;
|
|
|
|
|
-
|
|
|
|
|
begin
|
|
begin
|
|
|
Inherited Create;
|
|
Inherited Create;
|
|
|
InitMessageCallBacks;
|
|
InitMessageCallBacks;
|
|
@@ -543,6 +540,8 @@ begin
|
|
|
aWorker.WorkerState:=twsReady;
|
|
aWorker.WorkerState:=twsReady;
|
|
|
if Assigned(WasmMemory) and Assigned(WasmModule) then
|
|
if Assigned(WasmMemory) and Assigned(WasmModule) then
|
|
|
SendLoadCommand(aWorker);
|
|
SendLoadCommand(aWorker);
|
|
|
|
|
+ if (aCommand=Nil) then ; // Silence compiler warning
|
|
|
|
|
+
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
procedure TThreadController.HandleCleanupCommand(aWorker : TWasmThread; aCommand: TWorkerCleanupCommand);
|
|
procedure TThreadController.HandleCleanupCommand(aWorker : TWasmThread; aCommand: TWorkerCleanupCommand);
|