(Image): New procedure.

From-SVN: r145719

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:

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