diff options
| author | Bob Duff <duff@adacore.com> | 2009-11-30 10:38:23 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-11-30 11:38:23 +0100 |
| commit | c84b434f46aabff791f59a45ec74c8b9a3cf32f2 (patch) | |
| tree | 8b0a240aa8ed5792f527be14bd43e2be09bd2b77 /gcc/ada/g-sothco.ads | |
| parent | e68c7b43067cf63f3783238073193ea2ab2fe525 (diff) | |
| download | gcc-c84b434f46aabff791f59a45ec74c8b9a3cf32f2.zip gcc-c84b434f46aabff791f59a45ec74c8b9a3cf32f2.tar.gz gcc-c84b434f46aabff791f59a45ec74c8b9a3cf32f2.tar.bz2 | |
socket.c: Add more accessor functions for struct servent (need setters as well as getters).
2009-11-30 Bob Duff <duff@adacore.com>
* socket.c: Add more accessor functions for struct servent (need
setters as well as getters).
* g-sothco.ads (Servent): Declare interfaces to C setter functions for
struct servent.
* g-sttsne-locking.adb (Copy_Service_Entry): Use setter functions for
struct servent.
From-SVN: r154777
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 ffa3e69..82003e2 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; |