gcc/ada/

	* g-socket.adb: Add a message "IPv6 not supported" to the
	Socket_Error exception.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@134385 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 346866e..4b509a1 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 016b3ff..f561010 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;
 
    ------------------