diff options
| author | Almindor <Almindor@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-08-28 09:54:48 +0000 |
|---|---|---|
| committer | Almindor <Almindor@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-08-28 09:54:48 +0000 |
| commit | f272e8af2bd5278e73174990da2147dc05eb4992 (patch) | |
| tree | 160b140cb7a1960c14e0fe2cdc15569b3d2f3071 /packages/fcl-net | |
| parent | d62a7c0b453fd22c543b8a94c6d29cdbd0124440 (diff) | |
| download | fpc-f272e8af2bd5278e73174990da2147dc05eb4992.tar.gz | |
* applied patch from Hansi, fixes TInetSocket.DoConnect
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@11659 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-net')
| -rw-r--r-- | packages/fcl-net/src/ssockets.pp | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/packages/fcl-net/src/ssockets.pp b/packages/fcl-net/src/ssockets.pp index a8f50e82a5..952cb144f0 100644 --- a/packages/fcl-net/src/ssockets.pp +++ b/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])]); |