[multiple changes]

[thirdparty/gcc.git] / gcc / ada / g-socket.ads

diff --git a/gcc/ada/g-socket.ads b/gcc/ada/g-socket.ads
index 0ac9889dd5b5f4c96625fe48a0871b511c3d9cba..01983282ac711dcb1438c350ded403e227f85e6a 100644 (file)
--- a/gcc/ada/g-socket.ads
+++ b/gcc/ada/g-socket.ads
@@ -427,17 +427,16 @@ package GNAT.Sockets is
 
    --  Timeval_Duration is a subtype of Standard.Duration because the full
    --  range of Standard.Duration cannot be represented in the equivalent C
-   --  structure. Moreover, negative values are not allowed to avoid system
-   --  incompatibilities.
+   --  structure (struct timeval). Moreover, negative values are not allowed
+   --  to avoid system incompatibilities.
 
    Immediate : constant Duration := 0.0;
 
-   Timeval_Forever : constant := 1.0 * SOSC.MAX_tv_sec;
    Forever         : constant Duration :=
-                       Duration'Min (Duration'Last, Timeval_Forever);
+                       Duration'Min (Duration'Last, 1.0 * SOSC.MAX_tv_sec);
+   --  Largest possible Duration that is also a valid value for struct timeval
+
    subtype Timeval_Duration is Duration range Immediate .. Forever;
-   --  These needs commenting, in particular we should explain what these is
-   --  used for, and how the Timeval_Forever value is chosen (see r176463) ???
 
    subtype Selector_Duration is Timeval_Duration;
    --  Timeout value for selector operations