hedgewars/uFLRunQueue.pas
branchqmlfrontend
changeset 12858 0c6fb706f747
parent 11460 9f2fb0031ef0
--- a/hedgewars/uFLRunQueue.pas	Fri Dec 22 23:59:03 2017 +0100
+++ b/hedgewars/uFLRunQueue.pas	Sun Dec 24 00:44:16 2017 +0100
@@ -3,10 +3,9 @@
 uses uFLTypes;
 
 procedure queueExecution(var config: TGameConfig);
-procedure passFlibEvent(p: pointer); cdecl;
 
 implementation
-uses uFLGameConfig, hwengine, uFLThemes, uFLUICallback, uFLIPC;
+uses hwengine, uFLUICallback, uFLIPC;
 
 var runQueue: PGameConfig = nil;
 
@@ -56,7 +55,7 @@
         runQueue:= pConfig;
 
         ipcSetEngineBarrier();
-        sendConfig(pConfig);
+        //sendConfig(pConfig);
         nextRun
     end else
     begin
@@ -75,19 +74,9 @@
         end;
 
         ipcSetEngineBarrier();
-        sendConfig(pConfig);
+        //sendConfig(pConfig);
         t^.nextConfig:= pConfig
     end;
 end;
 
-procedure passFlibEvent(p: pointer); cdecl;
-begin
-    case TFLIBEvent(p^) of
-        flibGameFinished: begin
-            cleanupConfig;
-            nextRun
-        end;
-    end;
-end;
-
 end.