g-socket.adb, [...] (Check_Selector): Make Selector an IN parameter rather than IN...

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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 816b578c68ef8c8d0933d57e44d50ed87f88f757..a4f3e456d67766ef00ae643ce49501410b7bb335 100644 (file)
--- 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 2a3fe6f39af77fb6bf55be983f6c98afc02d3efe..e391f80243ae31dbbfb3178b9f2d14887bf50037 100644 (file)
--- 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 b7030c20fe30774e6b5dfcf85a8fcbaacb1421fa..01f1fc7caf53224b545145fb61162f9499fee89f 100644 (file)
--- 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;