diff -r 53c2f0f92281 -r f2a3e1a51f4d hedgewars/uIO.pas --- a/hedgewars/uIO.pas Tue Jan 04 16:15:47 2011 +0300 +++ b/hedgewars/uIO.pas Tue Jan 04 22:33:20 2011 +0300 @@ -99,18 +99,18 @@ procedure InitIPC; var ipaddr: TIPAddress; begin -WriteToConsole('Init SDL_Net... '); -SDLTry(SDLNet_Init = 0, true); -fds:= SDLNet_AllocSocketSet(1); -SDLTry(fds <> nil, true); -WriteLnToConsole(msgOK); -WriteToConsole('Establishing IPC connection... '); -{$HINTS OFF} -SDLTry(SDLNet_ResolveHost(ipaddr, '127.0.0.1', ipcPort) = 0, true); -{$HINTS ON} -IPCSock:= SDLNet_TCP_Open(ipaddr); -SDLTry(IPCSock <> nil, true); -WriteLnToConsole(msgOK) + WriteToConsole('Init SDL_Net... '); + SDLTry(SDLNet_Init = 0, true); + fds:= SDLNet_AllocSocketSet(1); + SDLTry(fds <> nil, true); + WriteLnToConsole(msgOK); + WriteToConsole('Establishing IPC connection to tcp 127.0.0.1:' + IntToStr(ipcPort)); + {$HINTS OFF} + SDLTry(SDLNet_ResolveHost(ipaddr, '127.0.0.1', ipcPort) = 0, true); + {$HINTS ON} + IPCSock:= SDLNet_TCP_Open(ipaddr); + SDLTry(IPCSock <> nil, true); + WriteLnToConsole(msgOK) end; procedure CloseIPC;