2004-08-09 Thomas Quinot <quinot@act-europe.fr>

[pf3gnuchains/gcc-fork.git] / gcc / ada / g-socthi-vxworks.ads

diff --git a/gcc/ada/g-socthi-vxworks.ads b/gcc/ada/g-socthi-vxworks.ads
index 3642a03..f389e9a 100644 (file)
--- a/gcc/ada/g-socthi-vxworks.ads
+++ b/gcc/ada/g-socthi-vxworks.ads
@@ -387,9 +387,9 @@ package GNAT.Sockets.Thin is
 
    function  Is_Socket_In_Set
      (Set    : Fd_Set_Access;
-      Socket : C.int)
-     return Boolean;
-   --  Check whether Socket is in the socket set
+      Socket : C.int) return C.int;
+   --  Check whether Socket is in the socket set, return a non-zero
+   --  value if it is, zero if it is not.
 
    procedure Last_Socket_In_Set
      (Set    : Fd_Set_Access;