hedgewars/uFLIPC.pas
branchqmlfrontend
changeset 11460 9f2fb0031ef0
parent 11459 30397f91571c
child 12858 0c6fb706f747
--- a/hedgewars/uFLIPC.pas	Thu Dec 17 00:51:20 2015 +0300
+++ b/hedgewars/uFLIPC.pas	Sun Dec 20 12:45:49 2015 +0300
@@ -51,6 +51,7 @@
         queue^.last^.next:= pmsg;
         queue^.last:= pmsg;
     end;
+
     SDL_CondSignal(queue^.cond);
     SDL_UnlockMutex(queue^.mut);
 end;
@@ -129,10 +130,8 @@
     SDL_LockMutex(q^.mut);
 
     pmsg:= @q^.msg;
-write('    ipcRemoveBarrierFromEngineQueue: ');
     while pmsg <> nil do
     begin
-        write('.');
         t:= pmsg^.next;
         q^.msg.next:= t;
 
@@ -166,7 +165,7 @@
 
         pmsg:= t
     end;
-writeln;
+
     if q^.msg.next = nil then q^.last:= @q^.msg;
 
     q^.msg.str[0]:= #0;
@@ -290,6 +289,7 @@
     new(q);
     q^.msg.str:= '';
     q^.msg.buf:= nil;
+    q^.msg.barrier:= 0;
     q^.mut:= SDL_CreateMutex;
     q^.cond:= SDL_CreateCond;
     q^.msg.next:= nil;