From: Thomas Quinot <quinot@adacore.com>
Date: Wed, 8 Apr 2009 12:18:02 +0000 (+0000)
Subject: (Image): New procedure.
X-Git-Tag: releases/gcc-4.5.0~6809
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=ad1536a1e7bb1b180235a79bed387ca53cf063c5;p=thirdparty%2Fgcc.git

(Image): New procedure.

From-SVN: r145719
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index ba8fd1feaf44..8acfe5e3268b 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 be7325fc22b5..8cb7ea732865 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