(Image): New procedure.

From-SVN: r145719

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index ba8fd1feaf444b64acda9837ca1527e0856347a2..8acfe5e3268b659bf3daf4a5cc4f3248eef847fd 100644 (file)
--- 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 be7325fc22b521c918666760a3c32785c62568bb..8cb7ea732865ce2e8cc1db55ba03f3d0da1ccaf7 100644 (file)
--- 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