hedgewars/uFLIPC.pas
branchqmlfrontend
changeset 10933 f1da4126a61c
parent 10898 f373838129c2
child 10935 3a65fcd7c335
--- a/hedgewars/uFLIPC.pas	Fri May 15 23:28:31 2015 +0300
+++ b/hedgewars/uFLIPC.pas	Sun May 17 00:14:30 2015 +0300
@@ -126,10 +126,10 @@
     ipcCheckFromFrontend:= ipcCheck(msgEngine, mutEngine)
 end;
 
-function  listener(p: pointer): Longint; cdecl; export;
+function  engineListener(p: pointer): Longint; cdecl; export;
 var msg: TIPCMessage;
 begin
-    listener:= 0;
+    engineListener:= 0;
     repeat
         msg:= ipcReadFromEngine();
         if msg.buf = nil then
@@ -146,7 +146,7 @@
 begin
     callbackPointer:= p;
     callbackFunction:= f;
-    callbackListenerThread:= SDL_CreateThread(@listener{$IFDEF SDL2}, 'ipcListener'{$ENDIF}, nil);
+    callbackListenerThread:= SDL_CreateThread(@engineListener{$IFDEF SDL2}, 'engineListener'{$ENDIF}, nil);
 end;
 
 procedure initIPC;