X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/2dd575b95694c126013c912526093ff4915f3398..2f03297fba2a10dbc860018fac7ad07c83b08ce8:/lsocket.pas

diff --git a/lsocket.pas b/lsocket.pas
index 18e7658..ddee93e 100755
--- a/lsocket.pas
+++ b/lsocket.pas
@@ -181,7 +181,6 @@ begin
     a := SOCK_STREAM;
     dgram := false;
   end else if (uppercase(proto) = 'ICMP') or (strtointdef(proto,256) < 256) then begin
-    //note: ICMP support doesn't seem to work yet
     b := strtointdef(proto,IPPROTO_ICMP);
     a := SOCK_RAW;
     dgram := true;
@@ -261,7 +260,6 @@ begin
   currentip := 0;
   if not assigned(connecttimeout) then begin
     connecttimeout := tltimer.create(self);
-    connecttimeout.Tag := integer(self);
     connecttimeout.ontimer := connecttimeouthandler;
     connecttimeout.interval := 2500;
     connecttimeout.enabled := false;