diff options
Diffstat (limited to 'gcc/ada/g-sothco.ads')
| -rw-r--r-- | gcc/ada/g-sothco.ads | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/gcc/ada/g-sothco.ads b/gcc/ada/g-sothco.ads index ffa3e69ca63..82003e2ffd5 100644 --- a/gcc/ada/g-sothco.ads +++ b/gcc/ada/g-sothco.ads @@ -225,13 +225,32 @@ package GNAT.Sockets.Thin_Common is function Servent_S_Name (E : Servent_Access) return C.Strings.chars_ptr; + function Servent_S_Aliases (E : Servent_Access) return Chars_Ptr_Pointers.Pointer; + function Servent_S_Port (E : Servent_Access) return C.int; + function Servent_S_Proto (E : Servent_Access) return C.Strings.chars_ptr; + procedure Servent_Set_S_Name + (E : Servent_Access; + S_Name : C.Strings.chars_ptr); + + procedure Servent_Set_S_Aliases + (E : Servent_Access; + S_Aliases : Chars_Ptr_Pointers.Pointer); + + procedure Servent_Set_S_Port + (E : Servent_Access; + S_Port : C.int); + + procedure Servent_Set_S_Proto + (E : Servent_Access; + S_Proto : C.Strings.chars_ptr); + ------------------ -- Host entries -- ------------------ @@ -347,4 +366,8 @@ private pragma Import (C, Servent_S_Aliases, "__gnat_servent_s_aliases"); pragma Import (C, Servent_S_Port, "__gnat_servent_s_port"); pragma Import (C, Servent_S_Proto, "__gnat_servent_s_proto"); + pragma Import (C, Servent_Set_S_Name, "__gnat_servent_set_s_name"); + pragma Import (C, Servent_Set_S_Aliases, "__gnat_servent_set_s_aliases"); + pragma Import (C, Servent_Set_S_Port, "__gnat_servent_set_s_port"); + pragma Import (C, Servent_Set_S_Proto, "__gnat_servent_set_s_proto"); end GNAT.Sockets.Thin_Common; |