diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-12 15:04:59 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-12 15:04:59 +0200 |
| commit | 2eb87017420b4608b8540c46f329cf9c264e1c39 (patch) | |
| tree | 1f32cbed376b2fe44e39b273fd884713fced3dcb /gcc/ada/g-socket.adb | |
| parent | 9686dbc79e2904ce4047003d78e30c7056321151 (diff) | |
| download | gcc-2eb87017420b4608b8540c46f329cf9c264e1c39.zip gcc-2eb87017420b4608b8540c46f329cf9c264e1c39.tar.gz gcc-2eb87017420b4608b8540c46f329cf9c264e1c39.tar.bz2 | |
[multiple changes]
2013-04-12 Robert Dewar <dewar@adacore.com>
* a-cfdlli.ads, g-socket.adb, s-fileio.adb: Minor reformatting.
2013-04-12 Yannick Moy <moy@adacore.com>
* sem_attr.adb (Analyze_Attribute): Update analyse of
Attribute_Old and Attribute_Result so they are allowed in the
right-hand-side of an association in a Contract_Cases pragma.
* sem_prag.adb (Analyze_CTC_In_Decl_Part): Add pre-analysis of
the expressions in a Contract_Cases pragma.
From-SVN: r197905
Diffstat (limited to 'gcc/ada/g-socket.adb')
| -rw-r--r-- | gcc/ada/g-socket.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/g-socket.adb b/gcc/ada/g-socket.adb index 8079e80..e186258 100644 --- a/gcc/ada/g-socket.adb +++ b/gcc/ada/g-socket.adb @@ -733,7 +733,9 @@ package body GNAT.Sockets is end if; end if; - -- Wait for socket to become available for writing + -- Wait for socket to become available for writing (unless the Timeout + -- is zero, in which case we consider that it has already expired, and + -- we do not need to wait at all). if Timeout = 0.0 then Status := Expired; |