diff options
author | Thomas Quinot <quinot@adacore.com> | 2009-04-08 12:18:02 +0000 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-08 14:18:02 +0200 |
commit | ad1536a1e7bb1b180235a79bed387ca53cf063c5 (patch) | |
tree | 41f9a0a90308c911c8ec838cc823f1a6414484ff /gcc/ada | |
parent | 02060927beb52d4a05173ee3e9b6aa631f994838 (diff) | |
download | gcc-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/ChangeLog | 3 | ||||
-rw-r--r-- | gcc/ada/g-socket.ads | 3 |
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 |