hedgewars/uIO.pas
changeset 3407 dcc129c4352e
parent 3038 4e48c276a468
child 3611 ed00aa2b339e
--- a/hedgewars/uIO.pas	Sun May 02 20:30:23 2010 +0000
+++ b/hedgewars/uIO.pas	Sun May 02 22:00:50 2010 +0000
@@ -104,7 +104,9 @@
 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)
@@ -182,6 +184,8 @@
 assign(f, fileName);
 reset(f, 1);
 
+i:= 0; // avoid compiler hints
+buf[0]:= 0;
 repeat
     BlockRead(f, buf[1], 255 - Length(ss), i);
     if i > 0 then