Minor reformatting.

From-SVN: r128434

diff --git a/gcc/ada/a-calend-vms.adb b/gcc/ada/a-calend-vms.adb
index 0df4328b3e3ca0ee75de017e392e128dd1fb3409..c115c8a220d439a60f56e78433002f8fb0d19cdf 100644 (file)
--- a/gcc/ada/a-calend-vms.adb
+++ b/gcc/ada/a-calend-vms.adb
@@ -1136,5 +1136,4 @@ begin
          end loop;
       end;
    end if;
-
 end Ada.Calendar;

diff --git a/gcc/ada/a-calend-vms.ads b/gcc/ada/a-calend-vms.ads
index f0c974927326b091ba93215d5cde70179ad28719..108bd8681790b29933540414a3ad1754deb36f84 100644 (file)
--- a/gcc/ada/a-calend-vms.ads
+++ b/gcc/ada/a-calend-vms.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 1992-2006, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- This specification is derived from the Ada Reference Manual for use with --
 -- GNAT. The copyright notice above, and the license provisions that follow --
@@ -38,6 +38,7 @@
 --  This is the Alpha/VMS version
 
 with System.OS_Primitives;
+
 package Ada.Calendar is
 
    package OSP renames System.OS_Primitives;

diff --git a/gcc/ada/a-calend.adb b/gcc/ada/a-calend.adb
index 2dce4fdcd146187fc68abc3aaca5ea9180abea43..9acac9bf6d726ed749186d1fd4b2556586d7b701 100644 (file)
--- a/gcc/ada/a-calend.adb
+++ b/gcc/ada/a-calend.adb
@@ -1385,5 +1385,4 @@ begin
          end loop;
       end;
    end if;
-
 end Ada.Calendar;

diff --git a/gcc/ada/a-calend.ads b/gcc/ada/a-calend.ads
index 711cd22af7e2171d771d9b25303e7941e6b869e3..8c373fd2c9345016f6abfe5a39c693c96594875d 100644 (file)
--- a/gcc/ada/a-calend.ads
+++ b/gcc/ada/a-calend.ads
@@ -53,7 +53,9 @@ package Ada.Calendar is
 
    function Clock return Time;
    --  The returned time value is the number of nanoseconds since the start
-   --  of Ada time (1901-01-01 00:00:00.0 UTC).
+   --  of Ada time (1901-01-01 00:00:00.0 UTC). If leap seconds are enabled,
+   --  the result will contain all elapsed leap seconds since the start of
+   --  Ada time until now.
 
    function Year    (Date : Time) return Year_Number;
    function Month   (Date : Time) return Month_Number;
@@ -169,11 +171,16 @@ private
    --    1972-06-30 23:59:59.0
    --    1972-07-01 00:00:00.0
 
-   --  When a new leap second is added, the following steps must be carried
-   --  out:
+   --  When a new leap second is introduced, the following steps must be
+   --  carried out:
 
-   --     1) Increment Leap_Seconds_Count by one
-   --     2) Add an entry to the end of table Leap_Second_Dates
+   --     1) Increment Leap_Seconds_Count in a-calend.adb by one
+   --     2) Increment LS_Count in xleaps.adb by one
+   --     3) Add the new date to the aggregate of array LS_Dates in
+   --        xleaps.adb
+   --     4) Compile and execute xleaps
+   --     5) Replace the values of Leap_Second_Times in a-calend.adb with the
+   --        aggregate generated by xleaps
 
    --  The algorithms that build the actual leap second values and discover
    --  how many leap seconds have occured between two dates do not need any