From 111c1cd945f6ba16f5e614e299d7b297961252cf Mon Sep 17 00:00:00 2001 From: Samuel Tardieu Date: Thu, 17 Apr 2008 09:22:29 +0000 Subject: [PATCH] g-socket.adb: Add a message "IPv6 not supported" to the Socket_Error exception. gcc/ada/ * g-socket.adb: Add a message "IPv6 not supported" to the Socket_Error exception. From-SVN: r134385 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/g-socket.adb | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 346866e9215..4b509a120ae 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2008-04-17 Samuel Tardieu + + * g-socket.adb: Add a message "IPv6 not supported" to the + Socket_Error exception. + 2008-04-16 Samuel Tardieu PR ada/29015 diff --git a/gcc/ada/g-socket.adb b/gcc/ada/g-socket.adb index 016b3fff227..f561010679a 100644 --- a/gcc/ada/g-socket.adb +++ b/gcc/ada/g-socket.adb @@ -359,7 +359,7 @@ package body GNAT.Sockets is begin if Address.Family = Family_Inet6 then - raise Socket_Error; + raise Socket_Error with "IPv6 not supported"; end if; Set_Length (Sin'Unchecked_Access, Len); @@ -582,7 +582,7 @@ package body GNAT.Sockets is begin if Server.Family = Family_Inet6 then - raise Socket_Error; + raise Socket_Error with "IPv6 not supported"; end if; Set_Length (Sin'Unchecked_Access, Len); @@ -1981,7 +1981,7 @@ package body GNAT.Sockets is S_B4 => C.unsigned_char (Addr.Sin_V4 (4))); end if; - raise Socket_Error; + raise Socket_Error with "IPv6 not supported"; end To_In_Addr; ------------------ -- 2.30.2