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-sttsne-vxworks.adb | |
| parent | 9b48614b5a736a3d809ad9af38e3f842031b105a (diff) | |
| download | gcc-e5772b53b217e844294503da040ec9e2fb7374af.tar.gz | |
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-sttsne-vxworks.adb')
| -rw-r--r-- | gcc/ada/g-sttsne-vxworks.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/g-sttsne-vxworks.adb b/gcc/ada/g-sttsne-vxworks.adb index 161029d51be..be0578d048c 100644 --- a/gcc/ada/g-sttsne-vxworks.adb +++ b/gcc/ada/g-sttsne-vxworks.adb @@ -81,7 +81,7 @@ package body GNAT.Sockets.Thin.Task_Safe_NetDB is -- VxWorks does not provide h_errno begin - pragma Assert (Addr_Type = Constants.AF_INET); + pragma Assert (Addr_Type = SOSC.AF_INET); pragma Assert (Addr_Len = In_Addr'Size / 8); -- Check that provided buffer is sufficiently large to hold the @@ -93,7 +93,7 @@ package body GNAT.Sockets.Thin.Task_Safe_NetDB is if VxWorks_hostGetByAddr (To_Pointer (Addr).all, Netdb_Data.Name'Address) - /= Constants.OK + /= SOSC.OK then return -1; end if; @@ -106,7 +106,7 @@ package body GNAT.Sockets.Thin.Task_Safe_NetDB is Ret.H_Name := C.Strings.To_Chars_Ptr (Netdb_Data.Name'Unrestricted_Access); Ret.H_Aliases := Alias_Access; - Ret.H_Addrtype := Constants.AF_INET; + Ret.H_Addrtype := SOSC.AF_INET; Ret.H_Length := 4; Ret.H_Addr_List := Netdb_Data.Addr_List (Netdb_Data.Addr_List'First)'Unchecked_Access; @@ -135,7 +135,7 @@ package body GNAT.Sockets.Thin.Task_Safe_NetDB is begin Addr := VxWorks_hostGetByName (Name); - if Addr = Constants.ERROR then + if Addr = SOSC.ERROR then return -1; end if; @@ -161,7 +161,7 @@ package body GNAT.Sockets.Thin.Task_Safe_NetDB is Ret.H_Name := C.Strings.To_Chars_Ptr (Netdb_Data.Name'Unrestricted_Access); Ret.H_Aliases := Alias_Access; - Ret.H_Addrtype := Constants.AF_INET; + Ret.H_Addrtype := SOSC.AF_INET; Ret.H_Length := 4; Ret.H_Addr_List := Netdb_Data.Addr_List (Netdb_Data.Addr_List'First)'Unchecked_Access; |