From 682b4c7a05f5e0fb613f0c8fba0535f6fd3ff3c5 Mon Sep 17 00:00:00 2001
From: guerby <guerby@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Wed, 20 Sep 2006 20:46:28 +0000
Subject: [PATCH] 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
---
gcc/ada/ChangeLog | 5 +++++
gcc/ada/g-socket.adb | 1 +
2 files changed, 6 insertions(+)
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index a2b1cb9767c7..d3466cfedde7 100644
--- 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 163dd2d0710e..f3ebfa36c8f6 100644
--- 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)));
--
GitLab