mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-10 08:30:31 +08:00
Code Issues Packages Projects Releases Wiki Activity

g-stsifd-sockets.adb (Create): Replace Constants.SOCK_STREAM with SOSC.SOCK__STREAM.

Browse Source 
* g-stsifd-sockets.adb (Create): Replace Constants.SOCK_STREAM
	with SOSC.SOCK__STREAM.
	* g-socthi-mingw.adb (C_Select) Replace Constants.MSG_OOB with
	SOSC.MSG_OOB.

From-SVN: r138974
This commit is contained in:
Danny Smith 2008-08-12 05:42:28 +00:00 committed by Danny Smith
parent 47d0c6482a
commit 2a04ce7569
3 changed files with 10 additions and 3 deletions

7
gcc/ada/ChangeLog

@ -1,3 +1,10 @@
2008-08-12 Danny Smith <danyssmith@users.sourceforge.net>
* g-stsifd-sockets.adb (Create): Replace Constants.SOCK_STREAM
with SOSC.SOCK__STREAM.
* g-socthi-mingw.adb (C_Select) Replace Constants.MSG_OOB with
SOSC.MSG_OOB.
2008-08-11 Joel Sherrill <joel.sherrill@oarcorp.com>
* s-oscons-tmplt.c: RTEMS defines AF_INET6 but does support it.

2
gcc/ada/g-socthi-mingw.adb

@ -341,7 +341,7 @@ package body GNAT.Sockets.Thin is
if EFS /= No_Fd_Set_Access then
declare
EFSC : constant Fd_Set_Access := New_Socket_Set (EFS);
Flag : constant C.int := SOSC.MSG_PEEK + Constants.MSG_OOB;
Flag : constant C.int := SOSC.MSG_PEEK + SOSC.MSG_OOB;
Buffer : Character;
Length : C.int;
Fromlen : aliased C.int;

4
gcc/ada/g-stsifd-sockets.adb

@ -82,7 +82,7 @@ package body Signalling_Fds is
-- Create a listening socket
L_Sock := C_Socket (SOSC.AF_INET, Constants.SOCK_STREAM, 0);
L_Sock := C_Socket (SOSC.AF_INET, SOSC.SOCK_STREAM, 0);
if L_Sock = Failure then
goto Fail;
@ -122,7 +122,7 @@ package body Signalling_Fds is
-- Create read end (client) socket
R_Sock := C_Socket (SOSC.AF_INET, Constants.SOCK_STREAM, 0);
R_Sock := C_Socket (SOSC.AF_INET, SOSC.SOCK_STREAM, 0);
if R_Sock = Failure then
goto Fail;