This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[PATCH][Ada] Fix g-socket PR ada/28716
- From: Laurent GUERBY <laurent at guerby dot net>
- To: gcc-patches <gcc-patches at gcc dot gnu dot org>
- Cc: Arnaud Charlet <charlet at adacore dot com>
- Date: Tue, 19 Sep 2006 21:37:13 +0200
- Subject: [PATCH][Ada] Fix g-socket PR ada/28716
Bootstrapped on x86_64-linux, user reports that the
PR is fixed.
Ok to commit?
Laurent
2006-08-19 Laurent GUERBY <laurent@guerby.net>
PR ada/28716
g-socket.adb (Bind_Socket): Call Set_Address.
--- g-socket.adb.~1~ 2005-11-15 19:44:55.000000000 +0100
+++ g-socket.adb 2006-09-18 20:26:17.000000000 +0200
@@ -357,6 +357,7 @@
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)));