From ad1536a1e7bb1b180235a79bed387ca53cf063c5 Mon Sep 17 00:00:00 2001 From: Thomas Quinot Date: Wed, 8 Apr 2009 12:18:02 +0000 Subject: (Image): New procedure. From-SVN: r145719 --- gcc/ada/ChangeLog | 3 ++- gcc/ada/g-socket.ads | 3 +++ 2 files changed, 5 insertions(+), 1 deletion(-) (limited to 'gcc/ada') 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 -- cgit v1.1