diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-09-05 08:07:00 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-09-05 08:07:00 +0000 |
| commit | 1d9b970a8fc86e69c3eeb9314b9a5de609047115 (patch) | |
| tree | 4719707ee1466c01c795cf2a027236826eba7d41 /gcc/ada/g-calend.adb | |
| parent | 0759bfdcbc2b16b34d811b699902287f5386df46 (diff) | |
| download | gcc-1d9b970a8fc86e69c3eeb9314b9a5de609047115.tar.gz | |
2005-09-01 Robert Dewar <dewar@adacore.com>
* a-dirval-mingw.adb, a-direct.adb, a-coinve.adb,
g-dynhta.adb, g-dynhta.ads, cstand.adb, exp_smem.adb, g-debuti.ads,
g-dirope.adb, g-table.adb, lib-sort.adb, sem_maps.adb,
exp_fixd.adb, exp_aggr.adb, a-intnam-mingw.ads, a-intnam-vxworks.ads,
g-arrspl.adb, g-arrspl.ads, g-awk.adb, g-awk.ads, g-boubuf.ads,
g-boubuf.ads, g-boubuf.ads, g-bubsor.ads, g-bubsor.adb, g-busora.adb,
g-busora.ads, g-busorg.adb, g-busorg.ads, g-calend.adb, g-calend.ads,
g-casuti.adb, g-casuti.ads, g-catiio.adb, g-catiio.ads, g-cgi.adb,
g-cgi.ads, g-cgicoo.adb, g-cgicoo.ads, g-cgideb.adb, g-cgideb.ads,
g-comlin.adb, g-comver.ads, g-semaph.ads, g-socthi.ads,
sem_ch7.adb, a-direio.adb, a-caldel.ads, i-cstrea-vms.adb,
a-ztedit.adb, a-ztenau.adb, g-socthi-vms.adb, g-socthi-vms.ads,
g-socthi-mingw.adb, g-socthi-mingw.ads, g-socthi-vxworks.ads,
a-intnam-irix.ads, a-intnam-irix.ads, a-intnam-hpux.ads,
a-intnam-os2.ads, a-intnam-os2.ads, a-caldel-vms.adb, a-calend-vms.adb,
a-calend-vms.ads, g-heasor.adb, g-heasor.ads, g-hesora.adb,
g-hesora.ads, g-hesorg.adb, g-hesorg.ads, g-htable.adb, g-htable.ads,
g-io.adb, g-io.ads, g-io_aux.adb, g-io_aux.ads, g-locfil.ads,
g-memdum.adb, g-memdum.ads, g-traceb.adb, g-traceb.ads, i-cobol.adb,
i-cobol.ads, i-cstrea.ads, i-cstrin.adb, a-wtedit.adb, a-tifiio.adb,
a-wtenau.adb, a-wtenau.adb, a-teioed.adb: Minor reformatting
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@103894 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/g-calend.adb')
| -rw-r--r-- | gcc/ada/g-calend.adb | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/gcc/ada/g-calend.adb b/gcc/ada/g-calend.adb index b41d302b28d..e73b10364f5 100644 --- a/gcc/ada/g-calend.adb +++ b/gcc/ada/g-calend.adb @@ -96,8 +96,7 @@ package body GNAT.Calendar is function Julian_Day (Year : Year_Number; Month : Month_Number; - Day : Day_Number) - return Integer + Day : Day_Number) return Integer is Internal_Year : Integer; Internal_Month : Integer; @@ -227,8 +226,7 @@ package body GNAT.Calendar is Hour : Hour_Number; Minute : Minute_Number; Second : Second_Number; - Sub_Second : Second_Duration := 0.0) - return Time + Sub_Second : Second_Duration := 0.0) return Time is Dsecs : constant Day_Duration := Day_Duration (Hour * 3600 + Minute * 60 + Second) + @@ -291,8 +289,7 @@ package body GNAT.Calendar is ------------------ function Week_In_Year - (Date : Ada.Calendar.Time) - return Week_In_Year_Number + (Date : Ada.Calendar.Time) return Week_In_Year_Number is Year : Year_Number; Month : Month_Number; @@ -306,7 +303,7 @@ package body GNAT.Calendar is begin Split (Date, Year, Month, Day, Hour, Minute, Second, Sub_Second); - -- Day offset number for the first week of the year. + -- Day offset number for the first week of the year Offset := Julian_Day (Year, 1, 1) mod 7; |