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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 68857260db93e2b3eb045f7106d3fef823b037f6..62746b99c697d86e58a05c2594611d010b3908d4 100644 (file)
--- 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 301317587aae3944dbca92d6a1a08d71321837f4..8c048eef132bb387fa98bcac291bc4b62713d07f 100644 (file)
--- 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 bb6095c3b460915bc8885dc553e40223fc28dbcc..5fe43af465468962183744edd00ad6121bbce4f6 100644 (file)
--- 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;