This patch updates all necessary files to accomodate the new leap second added
on 2012-06-30 as defined in IERS Bulletin C.

Tested on x86_64-pc-linux-gnu, committed on trunk

2012-01-30  Hristian Kirtchev  <kirtc...@adacore.com>

        * a-calend-vms.adb, a-calend.adb: Increment the number of leap seconds
        to 25 and add the hard time value for 2012-06-30.
        * xleaps.adb: Update the comment on which tests need to be
        modified each time a new leap second is added. Increment the
        number of leap seconds to 25 and add the new date for 2012.

Index: a-calend.adb
===================================================================
--- a-calend.adb        (revision 183694)
+++ a-calend.adb        (working copy)
@@ -155,7 +155,7 @@
    Leap_Support : constant Boolean := (Flag = 1);
    --  Flag to controls the usage of leap seconds in all Ada.Calendar routines
 
-   Leap_Seconds_Count : constant Natural := 24;
+   Leap_Seconds_Count : constant Natural := 25;
 
    ---------------------
    -- Local Constants --
@@ -237,7 +237,8 @@
       -4812566380000000000,
       -4765132779000000000,
       -4544207978000000000,
-      -4449513577000000000);
+      -4449513577000000000,
+      -4339180776000000000);
 
    ---------
    -- "+" --
Index: a-calend-vms.adb
===================================================================
--- a-calend-vms.adb    (revision 183694)
+++ a-calend-vms.adb    (working copy)
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1992-2009, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2012, Free Software Foundation, Inc.         --
 --                                                                          --
 -- 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- --
@@ -126,7 +126,7 @@
    --  The above flag controls the usage of leap seconds in all Ada.Calendar
    --  routines.
 
-   Leap_Seconds_Count : constant Natural := 24;
+   Leap_Seconds_Count : constant Natural := 25;
 
    ---------------------
    -- Local Constants --
@@ -177,7 +177,8 @@
       43744320200000000,
       44218656210000000,
       46427904220000000,
-      47374848230000000);
+      47374848230000000,
+      48478176240000000);
 
    ---------
    -- "+" --

Reply via email to