make dnsasync better handle cleanup of a partially constructed instance

[lcore.git] / lsocket.pas

diff --git a/lsocket.pas b/lsocket.pas
index 18e7658c3c90d44a4a385046f307cf393104c417..ddee93e8ac7d094347134b39774f66be5389d3c4 100755 (executable)
--- a/lsocket.pas
+++ b/lsocket.pas
@@ -181,7 +181,6 @@ begin
     a := SOCK_STREAM;\r
     dgram := false;\r
   end else if (uppercase(proto) = 'ICMP') or (strtointdef(proto,256) < 256) then begin\r
     a := SOCK_STREAM;\r
     dgram := false;\r
   end else if (uppercase(proto) = 'ICMP') or (strtointdef(proto,256) < 256) then begin\r

-    //note: ICMP support doesn't seem to work yet\r

     b := strtointdef(proto,IPPROTO_ICMP);\r
     a := SOCK_RAW;\r
     dgram := true;\r
     b := strtointdef(proto,IPPROTO_ICMP);\r
     a := SOCK_RAW;\r
     dgram := true;\r


@@ -261,7 +260,6 @@ begin
   currentip := 0;\r
   if not assigned(connecttimeout) then begin\r
     connecttimeout := tltimer.create(self);\r
   currentip := 0;\r
   if not assigned(connecttimeout) then begin\r
     connecttimeout := tltimer.create(self);\r

-    connecttimeout.Tag := integer(self);\r

     connecttimeout.ontimer := connecttimeouthandler;\r
     connecttimeout.interval := 2500;\r
     connecttimeout.enabled := false;\r
     connecttimeout.ontimer := connecttimeouthandler;\r
     connecttimeout.interval := 2500;\r
     connecttimeout.enabled := false;\r