diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-26 07:43:27 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-26 07:43:27 +0000 |
| commit | e1a0cc7b7e807e6f0ae790da1a452af403121f9e (patch) | |
| tree | 31e748acde00a186b9998864de91b99dd349ae1f /gcc/ada/a-calari.ads | |
| parent | b67a70de8ab854b29584e4189198e5b40efa4cd5 (diff) | |
| download | gcc-e1a0cc7b7e807e6f0ae790da1a452af403121f9e.tar.gz | |
2008-03-26 Robert Dewar <dewar@adacore.com>
* back_end.adb, back_end.ads: Minor reformatting
* bindgen.adb: Minor clarification of comments
* fname.ads: Minor comment fixes
* g-altive.ads, g-catiio.ads, g-trasym.ads, prj.ads,
prj-nmsc.adb, sem_aggr.adb: Minor reformatting
* xeinfo.adb, xnmake.adb, xsinfo.adb, xtreeprs.adb,
xsnames.adb: Remove warnings off pragma no longer needed
* a-catizo.ads, a-calari.ads, a-calfor.adb,
a-calfor.ads: Fix header.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@133585 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-calari.ads')
| -rw-r--r-- | gcc/ada/a-calari.ads | 34 |
1 files changed, 7 insertions, 27 deletions
diff --git a/gcc/ada/a-calari.ads b/gcc/ada/a-calari.ads index 95967a6e851..f874abe9ecc 100644 --- a/gcc/ada/a-calari.ads +++ b/gcc/ada/a-calari.ads @@ -6,32 +6,12 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2005-2006, Free Software Foundation, Inc. -- +-- Copyright (C) 2005-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 -- --- apply solely to the contents of the part following the private keyword. -- --- -- --- 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- -- --- ware Foundation; either version 2, or (at your option) any later ver- -- --- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- --- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- --- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License -- --- for more details. You should have received a copy of the GNU General -- --- Public License distributed with GNAT; see file COPYING. If not, write -- --- to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, -- --- MA 02111-1307, USA. -- --- -- --- As a special exception, if other files instantiate generics from this -- --- unit, or you link this unit with other files to produce an executable, -- --- this unit does not by itself cause the resulting executable to be -- --- covered by the GNU General Public License. This exception does not -- --- however invalidate any other reasons why the executable file might be -- --- covered by the GNU Public License. -- --- -- --- GNAT was originally developed by the GNAT team at New York University. -- --- Extensive contributions were provided by Ada Core Technologies Inc. -- +-- GNAT. In accordance with the copyright of that document, you can freely -- +-- copy and modify this specification, provided that if you redistribute a -- +-- modified version, any changes that you have made are clearly indicated. -- -- -- ------------------------------------------------------------------------------ @@ -50,10 +30,10 @@ package Ada.Calendar.Arithmetic is .. +(366 * (1 + Year_Number'Last - Year_Number'First)); - -- Negative leap seconds occur whenever the astronomical time is faster - -- than the atomic time or as a result of Difference when Left < Right. - subtype Leap_Seconds_Count is Integer range -2047 .. 2047; + -- Count of leap seconds. Negative leap seconds occur whenever the + -- astronomical time is faster than the atomic time or as a result of + -- Difference when Left < Right. procedure Difference (Left : Time; |