From 2a04ce756967dc1efd38b0a1301f17bafc1b3436 Mon Sep 17 00:00:00 2001 From: Danny Smith Date: Tue, 12 Aug 2008 05:42:28 +0000 Subject: [PATCH] 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 --- gcc/ada/ChangeLog | 7 +++++++ gcc/ada/g-socthi-mingw.adb | 2 +- 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 68857260db9..62746b99c69 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,10 @@ +2008-08-12 Danny Smith + + * 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 * 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 301317587aa..8c048eef132 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 bb6095c3b46..5fe43af4654 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;