diff -r 202eef454354 -r 20b81fafd236 hedgewars/uIO.pas --- a/hedgewars/uIO.pas Sun Jan 16 05:21:00 2011 +0100 +++ b/hedgewars/uIO.pas Mon Jan 17 01:43:10 2011 +0100 @@ -96,18 +96,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;