diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-18 08:59:39 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-18 08:59:39 +0000 |
| commit | cffef6a3e767365901c857d6b1459177b4c2dd73 (patch) | |
| tree | dfbb18a12825a36a2e728666e01e896e4c0aa77c /gcc/ada/g-socket.adb | |
| parent | 44fef051b5493ba3f508ad1a8c2fee1fa21c6af7 (diff) | |
| download | gcc-cffef6a3e767365901c857d6b1459177b4c2dd73.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@160965 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/g-socket.adb')
| -rw-r--r-- | gcc/ada/g-socket.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/g-socket.adb b/gcc/ada/g-socket.adb index 2a3fe6f39af..e391f80243a 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; |