diff options
Diffstat (limited to 'gcc/ada/g-socthi-vxworks.adb')
-rw-r--r-- | gcc/ada/g-socthi-vxworks.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/g-socthi-vxworks.adb b/gcc/ada/g-socthi-vxworks.adb index 28e22418847..06a60cae2d9 100644 --- a/gcc/ada/g-socthi-vxworks.adb +++ b/gcc/ada/g-socthi-vxworks.adb @@ -518,7 +518,7 @@ package body GNAT.Sockets.Thin is begin Task_Lock.Lock; - R := Is_Socket_In_Set (Non_Blocking_Sockets, S); + R := (Is_Socket_In_Set (Non_Blocking_Sockets, S) /= 0); Task_Lock.Unlock; return R; end Non_Blocking_Socket; |