aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada
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
parent02060927beb52d4a05173ee3e9b6aa631f994838 (diff)
downloadgcc-ad1536a1e7bb1b180235a79bed387ca53cf063c5.zip
gcc-ad1536a1e7bb1b180235a79bed387ca53cf063c5.tar.gz
gcc-ad1536a1e7bb1b180235a79bed387ca53cf063c5.tar.bz2
(Image): New procedure.
From-SVN: r145719
Diffstat (limited to 'gcc/ada')
-rw-r--r--gcc/ada/ChangeLog3
-rw-r--r--gcc/ada/g-socket.ads3
2 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index ba8fd1f..8acfe5e 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -94,10 +94,11 @@
(Get_Socket_From_Set): Fix incorrectly reverted formals
Last and Socket to match the underlying C routine.
- * g-socket.adb
+ * g-socket.adb, g-socket.ads
(Get): Use named parameter associations instead of positional ones in
call go Get_Socket_From_Set, since this routine has two formals of the
same type.
+ (Image): New procedure.
* g-socthi-vms.adb, g-socthi-vms.ads, g-socthi-vxworks.adb,
g-socthi-vxworks.ads, g-socthi-mingw.ads, g-socthi.adb, g-socthi.ads:
diff --git a/gcc/ada/g-socket.ads b/gcc/ada/g-socket.ads
index be7325f..8cb7ea7 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