hedgewars/uFLIPC.pas
branchqmlfrontend
changeset 12864 a03f245243b0
parent 12863 0c6fb706f747
child 12865 e33bcb9d5e9c
--- a/hedgewars/uFLIPC.pas	Sun Dec 24 00:44:16 2017 +0100
+++ b/hedgewars/uFLIPC.pas	Sun Dec 24 16:56:22 2017 +0100
@@ -6,9 +6,9 @@
 procedure freeIPC;
 
 procedure ipcToEngine(s: shortstring);
-procedure ipcToEngineRaw(p: pointer; len: Longword);
-procedure ipcSetEngineBarrier();
-procedure ipcRemoveBarrierFromEngineQueue();
+procedure ipcToEngineRaw(p: pointer; len: Longword); cdecl;
+procedure ipcSetEngineBarrier(); cdecl;
+procedure ipcRemoveBarrierFromEngineQueue(); cdecl;
 //function  ipcReadFromEngine: shortstring;
 //function  ipcCheckFromEngine: boolean;
 
@@ -105,7 +105,7 @@
     ipcSend(msg, queueFrontend)
 end;
 
-procedure ipcSetEngineBarrier();
+procedure ipcSetEngineBarrier(); cdecl;
 begin
     SDL_LockMutex(queueEngine^.mut);
 
@@ -114,7 +114,7 @@
     SDL_UnlockMutex(queueEngine^.mut);
 end;
 
-procedure ipcRemoveBarrierFromEngineQueue();
+procedure ipcRemoveBarrierFromEngineQueue(); cdecl;
 var pmsg, t: PIPCMessage;
     q: PIPCQueue;
 begin
@@ -167,7 +167,7 @@
     SDL_UnlockMutex(q^.mut);
 end;
 
-procedure ipcToEngineRaw(p: pointer; len: Longword);
+procedure ipcToEngineRaw(p: pointer; len: Longword); cdecl;
 var msg: TIPCMessage;
 begin
     msg.str[0]:= #0;