diff options
| -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 ba8fd1feaf4..8acfe5e3268 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 be7325fc22b..8cb7ea73286 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 |