From: Samuel Tardieu <sam@rfc1149.net>
Date: Thu, 17 Apr 2008 09:22:29 +0000 (+0000)
Subject: g-socket.adb: Add a message "IPv6 not supported" to the Socket_Error exception.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=111c1cd945f6ba16f5e614e299d7b297961252cf;p=gcc.git

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
---

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  <sam@rfc1149.net>
+
+	* g-socket.adb: Add a message "IPv6 not supported" to the
+	Socket_Error exception.
+
 2008-04-16  Samuel Tardieu  <sam@rfc1149.net>
 
 	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;
 
    ------------------