diff options
| author | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-08-09 18:47:06 +0000 |
|---|---|---|
| committer | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-08-09 18:47:06 +0000 |
| commit | f5d7c8dc6226411fadb49d6226748788804a5320 (patch) | |
| tree | 5eecfeb1d1c9a1f1d6febe15bedf773cc56e0c27 /packages/fcl-net | |
| parent | 18576cc38883d824dac52a3bcc7ee2d4ff59fb8a (diff) | |
| download | fpc-f5d7c8dc6226411fadb49d6226748788804a5320.tar.gz | |
* Fix a netorder issue. From mantis #12858
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@13507 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-net')
| -rw-r--r-- | packages/fcl-net/src/ssockets.pp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/fcl-net/src/ssockets.pp b/packages/fcl-net/src/ssockets.pp index a811d6d326..e3bd09744a 100644 --- a/packages/fcl-net/src/ssockets.pp +++ b/packages/fcl-net/src/ssockets.pp @@ -564,7 +564,7 @@ begin end; addr.family := AF_INET; addr.port := ShortHostToNet(FPort); - addr.addr := a.s_addr; + addr.addr := HostToNet(a.s_addr); If Sockets.fpConnect(ASocket, @addr, sizeof(addr))<>0 then raise ESocketError.Create(seConnectFailed, [Format('%s:%d',[FHost, FPort])]); |