--- 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.