diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-01-23 10:42:26 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-01-23 10:42:26 +0100 |
| commit | 2d38d84862ab6bebf9d5bac9e3fb99d3fcbbbe6c (patch) | |
| tree | af05a18d3315418506d421dee0e9d77e5f5326fb /gcc/ada | |
| parent | 926a090041e11907cc4e354f465bea22c1fef40c (diff) | |
| download | gcc-2d38d84862ab6bebf9d5bac9e3fb99d3fcbbbe6c.zip gcc-2d38d84862ab6bebf9d5bac9e3fb99d3fcbbbe6c.tar.gz gcc-2d38d84862ab6bebf9d5bac9e3fb99d3fcbbbe6c.tar.bz2 | |
Minor reformatting.
From-SVN: r183421
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/a-calend.ads | 22 |
1 files changed, 14 insertions, 8 deletions
diff --git a/gcc/ada/a-calend.ads b/gcc/ada/a-calend.ads index 9e08c79..60319c2 100644 --- a/gcc/ada/a-calend.ads +++ b/gcc/ada/a-calend.ads @@ -147,7 +147,7 @@ private -- 00:00:00.0 UTC - 2399-12-31-23:59:59.999999999 UTC). ------------------ - -- Leap seconds -- + -- Leap Seconds -- ------------------ -- Due to Earth's slowdown, the astronomical time is not as precise as the @@ -185,7 +185,7 @@ private -- modification. ------------------------------ - -- Non-leap centennial years -- + -- Non-leap Centennial Years -- ------------------------------ -- Over the range of Ada time, centennial years 2100, 2200 and 2300 are @@ -194,7 +194,7 @@ private -- subtract a "fake" February 29 to facilitate the arithmetic involved. ------------------------------------ - -- Time zones and UTC_Time_Offset -- + -- Time Zones and UTC_Time_Offset -- ------------------------------------ -- The implementation-defined time zone of Ada.Calendar routines is the @@ -220,17 +220,19 @@ private -- 2011-03-12 -300 -- 2011-03-14 -240 Daylight savings is in effect - -- Local declarations + ------------------------ + -- Local Declarations -- + ------------------------ + type Time_Rep is range -2 ** 63 .. +2 ** 63 - 1; + type Time is new Time_Rep; -- The underlying type of Time has been chosen to be a 64 bit signed -- integer number since it allows for easier processing of sub seconds -- and arithmetic. - type Time_Rep is range -2 ** 63 .. +2 ** 63 - 1; - type Time is new Time_Rep; - Days_In_Month : constant array (Month_Number) of Day_Number := (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); + -- Days in month for non-leap year, leap year case is adjusted in code Invalid_Time_Zone_Offset : Long_Integer; pragma Import (C, Invalid_Time_Zone_Offset, "__gnat_invalid_tzoff"); @@ -238,7 +240,11 @@ private function Is_Leap (Year : Year_Number) return Boolean; -- Determine whether a given year is leap - -- The following packages provide a target independent interface to the + ---------------------------------------------------------- + -- Target-Independent Interface to Children of Calendar -- + ---------------------------------------------------------- + + -- The following packages provide a target-independent interface to the -- children of Calendar - Arithmetic, Conversions, Delays, Formatting and -- Time_Zones. |