diff options
| author | Samuel Tardieu <sam@rfc1149.net> | 2008-04-17 09:22:29 +0000 |
|---|---|---|
| committer | Samuel Tardieu <sam@gcc.gnu.org> | 2008-04-17 09:22:29 +0000 |
| commit | 111c1cd945f6ba16f5e614e299d7b297961252cf (patch) | |
| tree | d51093f0dd753813918b10517e95b9db43965a2f | |
| parent | ba2e189251286ceb6830a36bbbf44d20bda1e29a (diff) | |
| download | gcc-111c1cd945f6ba16f5e614e299d7b297961252cf.zip gcc-111c1cd945f6ba16f5e614e299d7b297961252cf.tar.gz gcc-111c1cd945f6ba16f5e614e299d7b297961252cf.tar.bz2 | |
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
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/g-socket.adb | 6 |
2 files changed, 8 insertions, 3 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 346866e..4b509a1 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 016b3ff..f561010 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; ------------------ |