diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-14 19:00:56 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-14 19:00:56 +0000 |
| commit | ddda25955ee583217ccbd7ad5c33c6bb9f304649 (patch) | |
| tree | ed58c0f92eec5cacc819d56d29106d38a318e9ac /gcc/ada/g-sttsne-vxworks.adb | |
| parent | 04fa393515487bde6dc2a0bc318398d983825365 (diff) | |
| download | gcc-ddda25955ee583217ccbd7ad5c33c6bb9f304649.tar.gz | |
2008-08-14 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk r139100
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@139113 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; |