From e9672ebe5d3c2695c61ca92c29af4a1df222db13 Mon Sep 17 00:00:00 2001 From: Thomas Quinot Date: Fri, 18 Jun 2010 08:59:39 +0000 Subject: g-socket.adb, [...] (Check_Selector): Make Selector an IN parameter rather than IN OUT. 2010-06-18 Thomas Quinot * g-socket.adb, g-socket.ads (Check_Selector): Make Selector an IN parameter rather than IN OUT. From-SVN: r160965 --- gcc/ada/g-socket.adb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'gcc/ada/g-socket.adb') diff --git a/gcc/ada/g-socket.adb b/gcc/ada/g-socket.adb index 2a3fe6f..e391f80 100644 --- a/gcc/ada/g-socket.adb +++ b/gcc/ada/g-socket.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2009, AdaCore -- +-- Copyright (C) 2001-2010, AdaCore -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -465,7 +465,7 @@ package body GNAT.Sockets is -------------------- procedure Check_Selector - (Selector : in out Selector_Type; + (Selector : Selector_Type; R_Socket_Set : in out Socket_Set_Type; W_Socket_Set : in out Socket_Set_Type; Status : out Selector_Status; @@ -482,7 +482,7 @@ package body GNAT.Sockets is -------------------- procedure Check_Selector - (Selector : in out Selector_Type; + (Selector : Selector_Type; R_Socket_Set : in out Socket_Set_Type; W_Socket_Set : in out Socket_Set_Type; E_Socket_Set : in out Socket_Set_Type; -- cgit v1.1