diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-08 12:59:28 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-08 12:59:28 +0000 |
| commit | e5772b53b217e844294503da040ec9e2fb7374af (patch) | |
| tree | 79ae6ee89c9399d148f4fe0f6a12ce13f41573e1 /gcc/ada/g-socthi-mingw.adb | |
| parent | 9b48614b5a736a3d809ad9af38e3f842031b105a (diff) | |
| download | ppe42-gcc-e5772b53b217e844294503da040ec9e2fb7374af.tar.gz ppe42-gcc-e5772b53b217e844294503da040ec9e2fb7374af.zip | |
2008-08-08 Thomas Quinot <quinot@adacore.com>
* g-soccon.ads: New file.
* g-stheme.adb, g-socthi-vms.adb, g-socthi-vxworks.adb,
g-socthi-mingw.adb, g-sttsne-vxworks.adb, g-socthi.adb,
g-stsifd-sockets.adb, g-socket.adb, g-socket.ads,
g-sothco.adb, g-sothco.ads: Add back GNAT.Sockets.Constants as a child
unit, to allow building software that depends on this internal unit
with both older and newer compilers.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@138877 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/g-socthi-mingw.adb')
| -rw-r--r-- | gcc/ada/g-socthi-mingw.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/g-socthi-mingw.adb b/gcc/ada/g-socthi-mingw.adb index 3e13641d34f..301317587aa 100644 --- a/gcc/ada/g-socthi-mingw.adb +++ b/gcc/ada/g-socthi-mingw.adb @@ -239,8 +239,8 @@ package body GNAT.Sockets.Thin is Res := Standard_Connect (S, Name, Namelen); if Res = -1 then - if Socket_Errno = Constants.EWOULDBLOCK then - Set_Socket_Errno (Constants.EINPROGRESS); + if Socket_Errno = SOSC.EWOULDBLOCK then + Set_Socket_Errno (SOSC.EINPROGRESS); end if; end if; @@ -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 := Constants.MSG_PEEK + Constants.MSG_OOB; + Flag : constant C.int := SOSC.MSG_PEEK + Constants.MSG_OOB; Buffer : Character; Length : C.int; Fromlen : aliased C.int; @@ -487,7 +487,7 @@ package body GNAT.Sockets.Thin is function Socket_Error_Message (Errno : Integer) return C.Strings.chars_ptr is - use GNAT.Sockets.Constants; + use GNAT.Sockets.SOSC; begin case Errno is when EINTR => return Error_Messages (N_EINTR); |
