* applied patch from Hansi, fixes TInetSocket.DoConnect

git-svn-id: trunk@11659 -

packages/fcl-net/src/ssockets.pp

@@ -555,8 +555,7 @@ begin
       end;
   addr.family := AF_INET;
   addr.port := ShortHostToNet(FPort);
-  addr.addr := hosttonet(a.s_addr); // hosttonet(A).s_addr;
-//Cardinal(A);
+  addr.addr := a.s_addr;
 
   If not Sockets.Connect(ASocket, addr, sizeof(addr)) then
     raise ESocketError.Create(seConnectFailed, [Format('%s:%d',[FHost, FPort])]);