diff options
| author | Laurent GUERBY <laurent@guerby.net> | 2006-09-20 20:46:28 +0000 |
|---|---|---|
| committer | Laurent Guerby <guerby@gcc.gnu.org> | 2006-09-20 20:46:28 +0000 |
| commit | d2b40c0921356a20361e8a740d5502824065d003 (patch) | |
| tree | fade2757b9848be304aa1083fd3289fb127082c2 | |
| parent | 1186ec8cd675cc81ec9029547cba5011e402965e (diff) | |
| download | gcc-d2b40c0921356a20361e8a740d5502824065d003.zip gcc-d2b40c0921356a20361e8a740d5502824065d003.tar.gz gcc-d2b40c0921356a20361e8a740d5502824065d003.tar.bz2 | |
re PR ada/28716 (Ada: Bind_Socket doesn't bind to specified address)
2006-08-20 Laurent GUERBY <laurent@guerby.net>
PR ada/28716
g-socket.adb (Bind_Socket): Call Set_Address.
From-SVN: r117092
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/g-socket.adb | 1 |
2 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index a2b1cb9..d3466cf 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2006-08-20 Laurent GUERBY <laurent@guerby.net> + + PR ada/28716 + g-socket.adb (Bind_Socket): Call Set_Address. + 2006-09-15 Eric Botcazou <ebotcazou@adacore.com> PR ada/15802 diff --git a/gcc/ada/g-socket.adb b/gcc/ada/g-socket.adb index 163dd2d..f3ebfa3 100644 --- a/gcc/ada/g-socket.adb +++ b/gcc/ada/g-socket.adb @@ -357,6 +357,7 @@ package body GNAT.Sockets is Set_Length (Sin'Unchecked_Access, Len); Set_Family (Sin'Unchecked_Access, Families (Address.Family)); + Set_Address (Sin'Unchecked_Access, To_In_Addr (Address.Addr)); Set_Port (Sin'Unchecked_Access, Short_To_Network (C.unsigned_short (Address.Port))); |