diff options
| author | Thomas Quinot <quinot@adacore.com> | 2010-06-18 08:59:39 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-18 10:59:39 +0200 |
| commit | e9672ebe5d3c2695c61ca92c29af4a1df222db13 (patch) | |
| tree | dfbb18a12825a36a2e728666e01e896e4c0aa77c /gcc/ada | |
| parent | 9f5b6c7f1e1a346220e079c75445a0fa165d6a2f (diff) | |
| download | gcc-e9672ebe5d3c2695c61ca92c29af4a1df222db13.zip gcc-e9672ebe5d3c2695c61ca92c29af4a1df222db13.tar.gz gcc-e9672ebe5d3c2695c61ca92c29af4a1df222db13.tar.bz2 | |
g-socket.adb, [...] (Check_Selector): Make Selector an IN parameter rather than IN OUT.
2010-06-18 Thomas Quinot <quinot@adacore.com>
* g-socket.adb, g-socket.ads (Check_Selector): Make Selector an IN
parameter rather than IN OUT.
From-SVN: r160965
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/g-socket.adb | 6 | ||||
| -rw-r--r-- | gcc/ada/g-socket.ads | 4 |
3 files changed, 10 insertions, 5 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 816b578..a4f3e45 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2010-06-18 Thomas Quinot <quinot@adacore.com> + + * g-socket.adb, g-socket.ads (Check_Selector): Make Selector an IN + parameter rather than IN OUT. + 2010-06-18 Ed Schonberg <schonberg@adacore.com> * exp_ch6.adb: Add extra guard. 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; diff --git a/gcc/ada/g-socket.ads b/gcc/ada/g-socket.ads index b7030c2..01f1fc7 100644 --- a/gcc/ada/g-socket.ads +++ b/gcc/ada/g-socket.ads @@ -1077,7 +1077,7 @@ package GNAT.Sockets is -- already closed. 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; @@ -1096,7 +1096,7 @@ package GNAT.Sockets is -- used for the implementation of Abort_Selector. 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; |