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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index a2b1cb9767c7a88509ea60c13bb706848c50b7cb..d3466cfedde791aaa4f617033759da069d215826 100644 (file)
--- 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 163dd2d0710efb700273eb4b734575b33034c6f1..f3ebfa36c8f607c809ae285c768e2333802c1a10 100644 (file)
--- 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)));