OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source 
gcc/ada/
	* g-socket.adb: Add a message "IPv6 not supported" to the
	Socket_Error exception.

From-SVN: r134385
This commit is contained in:
Samuel Tardieu 2008-04-17 09:22:29 +00:00 committed by Samuel Tardieu
parent ba2e189251
commit 111c1cd945
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

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

6
gcc/ada/g-socket.adb
View File

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