Explorar o código

* for some reason a hosttonet got commented out
(double bug introduced due to netdb bug?). Anyway works now; bug #7982

git-svn-id: trunk@5752 -

marco %!s(int64=19) %!d(string=hai) anos
pai
achega
51b4fc7852
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      fcl/inc/ssockets.pp

+ 1 - 1
fcl/inc/ssockets.pp

@@ -555,7 +555,7 @@ begin
       end;
       end;
   addr.family := AF_INET;
   addr.family := AF_INET;
   addr.port := ShortHostToNet(FPort);
   addr.port := ShortHostToNet(FPort);
-  addr.addr := a.s_addr; // hosttonet(A).s_addr;
+  addr.addr := hosttonet(a.s_addr); // hosttonet(A).s_addr;
 //Cardinal(A);
 //Cardinal(A);
 
 
   If not Sockets.Connect(ASocket, addr, sizeof(addr)) then
   If not Sockets.Connect(ASocket, addr, sizeof(addr)) then