From d2b40c0921356a20361e8a740d5502824065d003 Mon Sep 17 00:00:00 2001 From: Laurent GUERBY Date: Wed, 20 Sep 2006 20:46:28 +0000 Subject: [PATCH] re PR ada/28716 (Ada: Bind_Socket doesn't bind to specified address) 2006-08-20 Laurent GUERBY PR ada/28716 g-socket.adb (Bind_Socket): Call Set_Address. From-SVN: r117092 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/g-socket.adb | 1 + 2 files changed, 6 insertions(+) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index a2b1cb9767c7..d3466cfedde7 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2006-08-20 Laurent GUERBY + + PR ada/28716 + g-socket.adb (Bind_Socket): Call Set_Address. + 2006-09-15 Eric Botcazou PR ada/15802 diff --git a/gcc/ada/g-socket.adb b/gcc/ada/g-socket.adb index 163dd2d0710e..f3ebfa36c8f6 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)));