diff options
| author | Danny Smith <dannysmith@users.sourceforge.net> | 2008-08-12 05:42:28 +0000 |
|---|---|---|
| committer | Danny Smith <dannysmith@gcc.gnu.org> | 2008-08-12 05:42:28 +0000 |
| commit | 2a04ce756967dc1efd38b0a1301f17bafc1b3436 (patch) | |
| tree | fc0398c2322ea31d6e05f7e927ab287ddfcb83c9 /gcc | |
| parent | 47d0c6482a37150de81334991eb9174ea00e1a3c (diff) | |
| download | gcc-2a04ce756967dc1efd38b0a1301f17bafc1b3436.zip gcc-2a04ce756967dc1efd38b0a1301f17bafc1b3436.tar.gz gcc-2a04ce756967dc1efd38b0a1301f17bafc1b3436.tar.bz2 | |
g-stsifd-sockets.adb (Create): Replace Constants.SOCK_STREAM with SOSC.SOCK__STREAM.
* 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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/ada/g-socthi-mingw.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/g-stsifd-sockets.adb | 4 |
3 files changed, 10 insertions, 3 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 6885726..62746b9 100644 --- a/gcc/ada/ChangeLog +++ b/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. diff --git a/gcc/ada/g-socthi-mingw.adb b/gcc/ada/g-socthi-mingw.adb index 3013175..8c048ee 100644 --- a/gcc/ada/g-socthi-mingw.adb +++ b/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; diff --git a/gcc/ada/g-stsifd-sockets.adb b/gcc/ada/g-stsifd-sockets.adb index bb6095c..5fe43af 100644 --- a/gcc/ada/g-stsifd-sockets.adb +++ b/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; |