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-stsifd-sockets.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-stsifd-sockets.adb')
| -rw-r--r-- | gcc/ada/g-stsifd-sockets.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/g-stsifd-sockets.adb b/gcc/ada/g-stsifd-sockets.adb index 44bf2d8056e..bb6095c3b46 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 (Constants.AF_INET, Constants.SOCK_STREAM, 0); + L_Sock := C_Socket (SOSC.AF_INET, Constants.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 (Constants.AF_INET, Constants.SOCK_STREAM, 0); + R_Sock := C_Socket (SOSC.AF_INET, Constants.SOCK_STREAM, 0); if R_Sock = Failure then goto Fail; @@ -134,7 +134,7 @@ package body Signalling_Fds is exit when Res /= Failure; - if Socket_Errno /= Constants.EADDRINUSE then + if Socket_Errno /= SOSC.EADDRINUSE then goto Fail; end if; @@ -152,7 +152,7 @@ package body Signalling_Fds is pragma Assert (Res = Failure and then - Socket_Errno = Constants.EADDRINUSE); + Socket_Errno = SOSC.EADDRINUSE); pragma Warnings (Off); -- useless assignment to "Res" Res := C_Close (W_Sock); pragma Warnings (On); @@ -217,7 +217,7 @@ package body Signalling_Fds is function Read (Rsig : C.int) return C.int is Buf : aliased Character; begin - return C_Recv (Rsig, Buf'Address, 1, Constants.MSG_Forced_Flags); + return C_Recv (Rsig, Buf'Address, 1, SOSC.MSG_Forced_Flags); end Read; ----------- @@ -227,7 +227,7 @@ package body Signalling_Fds is function Write (Wsig : C.int) return C.int is Buf : aliased Character := ASCII.NUL; begin - return C_Send (Wsig, Buf'Address, 1, Constants.MSG_Forced_Flags); + return C_Send (Wsig, Buf'Address, 1, SOSC.MSG_Forced_Flags); end Write; end Signalling_Fds; |
