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

gcc/ada/ChangeLog

+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

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)));