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 346866e9215e058527ee5a90fb6e4f1530cffd77..4b509a120ae89221904178a4537f2392fb9f40de 100644 (file)
--- 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 016b3fff227f54b1908acc0203848c033864c03a..f561010679a5554629344cf1c29dd59297527c8b 100644 (file)
--- 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;
 
    ------------------