Skip to content

R
riscv-gcc-1
Commit e9672ebe by Thomas Quinot Committed by Arnaud Charlet
Options

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
parent 9f5b6c7f
Showing with 10 additions and 5 deletions
gcc/ada/ChangeLog
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.
......
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;
......
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;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment