2006-08-20 Laurent GUERBY <laurent@guerby.net>

        PR ada/28716
        g-socket.adb (Bind_Socket): Call Set_Address.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@117092 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index a2b1cb9..d3466cf 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
 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 (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_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)));
       Set_Port
         (Sin'Unchecked_Access,
          Short_To_Network (C.unsigned_short (Address.Port)));