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

g-socket.adb: Move pragma to disable warnings in case multiple errnos are not defined by target.

Browse Source 
2010-09-28  Joel Sherrill <joel.sherrill@oarcorp.com>

	* g-socket.adb: Move pragma to disable warnings in case
	multiple errnos are not defined by target.

From-SVN: r164753
This commit is contained in:
Joel Sherrill 2010-09-30 16:01:30 +00:00 committed by Joel Sherrill
parent ca01d012be
commit 0eeccfa3ff
2 changed files with 11 additions and 2 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 @@
2010-09-28 Joel Sherrill <joel.sherrill@oarcorp.com>
* g-socket.adb: Move pragma to disable warnings in case
multiple errnos are not defined by target.
2010-09-29 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/utils.c (handle_leaf_attribute): Fix long line.

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

@ -1821,12 +1821,14 @@ package body GNAT.Sockets is
return Resource_Temporarily_Unavailable;
end if;
pragma Warnings (On);
-- This is not a case statement because if a particular error
-- number constant is not defined, s-oscons-tmplt.c defines
-- it to -1. If multiple constants are not defined, they
-- would each be -1 and result in a "duplicate value in case" error.
--
-- But we have to leave warnings off because the compiler is also
-- smart enough to note that when two errnos have the same value,
-- the second if condition is useless.
if Error_Value = ENOERROR then
return Success;
elsif Error_Value = EACCES then
@ -1910,6 +1912,8 @@ package body GNAT.Sockets is
else
return Cannot_Resolve_Error;
end if;
pragma Warnings (On);
end Resolve_Error;
-----------------------