diff options
| author | guerby <guerby@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-09-20 20:46:28 +0000 |
|---|---|---|
| committer | guerby <guerby@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-09-20 20:46:28 +0000 |
| commit | 682b4c7a05f5e0fb613f0c8fba0535f6fd3ff3c5 (patch) | |
| tree | fade2757b9848be304aa1083fd3289fb127082c2 /gcc | |
| parent | dee3c9ddae3ad52ea17f2624c95159bc1728d3bc (diff) | |
| download | ppe42-gcc-682b4c7a05f5e0fb613f0c8fba0535f6fd3ff3c5.tar.gz ppe42-gcc-682b4c7a05f5e0fb613f0c8fba0535f6fd3ff3c5.zip | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/g-socket.adb | 1 |
2 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index a2b1cb9767c..d3466cfedde 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 163dd2d0710..f3ebfa36c8f 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))); |
