This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
{Patch] Committed obvious fix for mingw32 breakage with Sockets.Constants demise
- From: "Danny Smith" <dansmister at gmail dot com>
- To: "GCC Patches" <gcc-patches at gcc dot gnu dot org>, quinot at adacore dot com
- Date: Tue, 12 Aug 2008 17:48:30 +1200
- Subject: {Patch] Committed obvious fix for mingw32 breakage with Sockets.Constants demise
Hallo, hallo
I have committed the following as obvious to allow mingw32 to build following
the death of GNAT.Sockets.Constants.
ChangeLog
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
Index: g-socthi-mingw.adb
===================================================================
--- g-socthi-mingw.adb (revision 138972)
+++ g-socthi-mingw.adb (working copy)
@@ -341,7 +341,7 @@
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;
Index: g-stsifd-sockets.adb
===================================================================
--- g-stsifd-sockets.adb (revision 138972)
+++ g-stsifd-sockets.adb (working copy)
@@ -82,7 +82,7 @@
-- 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 @@
-- 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;