Commit f4e9fba4 by Arnaud Charlet

Minor reformatting.

From-SVN: r128434
parent c5067c78
......@@ -1136,5 +1136,4 @@ begin
end loop;
end;
end if;
end Ada.Calendar;
......@@ -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;
......
......@@ -1385,5 +1385,4 @@ begin
end loop;
end;
end if;
end Ada.Calendar;
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment