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