summaryrefslogtreecommitdiff
path: root/gcc/ada/g-socket.ads
diff options
context:
space:
mode:
authorThomas Quinot <quinot@adacore.com>2009-04-08 12:18:02 +0000
committerArnaud Charlet <charlet@gcc.gnu.org>2009-04-08 14:18:02 +0200
commitad1536a1e7bb1b180235a79bed387ca53cf063c5 (patch)
tree41f9a0a90308c911c8ec838cc823f1a6414484ff /gcc/ada/g-socket.ads
parent02060927beb52d4a05173ee3e9b6aa631f994838 (diff)
downloadgcc-ad1536a1e7bb1b180235a79bed387ca53cf063c5.tar.gz
(Image): New procedure.
From-SVN: r145719
Diffstat (limited to 'gcc/ada/g-socket.ads')
-rw-r--r--gcc/ada/g-socket.ads3
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/g-socket.ads b/gcc/ada/g-socket.ads
index be7325fc22b..8cb7ea73286 100644
--- a/gcc/ada/g-socket.ads
+++ b/gcc/ada/g-socket.ads
@@ -994,6 +994,9 @@ package GNAT.Sockets is
procedure Set (Item : in out Socket_Set_Type; Socket : Socket_Type);
-- Insert Socket into Item
+ function Image (Item : Socket_Set_Type) return String;
+ -- Return a printable image of Item, for debugging purposes
+
-- The select(2) system call waits for events to occur on any of a set of
-- file descriptors. Usually, three independent sets of descriptors are
-- watched (read, write and exception). A timeout gives an upper bound