From: plugwash <plugwash@p10link.net>
Date: Mon, 13 Apr 2009 02:44:32 +0000 (+0000)
Subject: remove an assignment that doesn't serve any usefull function and causes
X-Git-Url: http://www.lcore.org/git/lcore.git/commitdiff_plain/47be802778ed1f8dc869a92d93d169908f51c85a?ds=inline

remove an assignment that doesn't serve any usefull function and causes
build failure with 2.0.0 on amd64


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

diff --git a/lsocket.pas b/lsocket.pas
index ce23301..ddee93e 100755
--- a/lsocket.pas
+++ b/lsocket.pas
@@ -260,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;