Skip to content

R
riscv-gcc-1
Commit 111c1cd9 by Samuel Tardieu Committed by Samuel Tardieu
Options

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
parent ba2e1892
Showing with 8 additions and 3 deletions
gcc/ada/ChangeLog
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
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;
------------------
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment