Michael Van Canneyt 7 месяцев назад
Родитель
Сommit
4f4146687e
1 измененных файлов с 2 добавлено и 3 удалено
  1. 2 3
      packages/wasi/src/rtl.threadcontroller.pas

+ 2 - 3
packages/wasi/src/rtl.threadcontroller.pas

@@ -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);