hedgewars/uFLTypes.pas
branchqmlfrontend
changeset 11450 0c75fa9ce340
parent 11449 2bf0491d5e88
child 11451 6e9b12864856
--- a/hedgewars/uFLTypes.pas	Mon Dec 07 00:05:41 2015 +0300
+++ b/hedgewars/uFLTypes.pas	Thu Dec 10 00:33:45 2015 +0300
@@ -1,5 +1,6 @@
 unit uFLTypes;
 interface
+uses SDLh;
 
 const
     MAXARGS = 32;
@@ -18,10 +19,19 @@
 
     TClientFlag = (cfReady, cfRegistered, cfInRoom, cfContributor, cfInGame, cfRoomAdmin, cfServerAdmin);
 
+    PIPCMessage = ^TIPCMessage;
     TIPCMessage = record
                    str: shortstring;
                    len: Longword;
-                   buf: Pointer
+                   buf: Pointer;
+                   next: PIPCMessage;
+               end;
+    PIPCQueue = ^TIPCQueue;
+    TIPCQueue = record
+                   msg: TIPCMessage;
+                   mut: PSDL_Mutex;
+                   cond: PSDL_Cond;
+                   last: PIPCMessage;
                end;
 
     TIPCCallback = procedure (p: pointer; msg: PChar; len: Longword);