ICMP does work, removing comment

git-svn-id: file:///svnroot/lcore/trunk@34 b1de8a11-f9be-4011-bde0-cc7ace90066a

diff --git a/lsocket.pas b/lsocket.pas
index 18e7658c3c90d44a4a385046f307cf393104c417..ce2330174dd6c46e9e82f015ae310be4fc03dfc9 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