diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-01-23 08:51:38 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-01-23 08:51:38 +0000 |
| commit | f65e883c18c6dd5c84ab21ddff0ca25253b91290 (patch) | |
| tree | ca1029610d8618cd4042b4926c54ebe6c3185af8 /gcc/ada/a-calend.ads | |
| parent | 6d852e2b4b1c3e5096e8da093ec5a01267071047 (diff) | |
| download | gcc-f65e883c18c6dd5c84ab21ddff0ca25253b91290.tar.gz | |
2012-01-23 Robert Dewar <dewar@adacore.com>
* sprint.ads, sprint.adb (Sprint_Node_List): Add New_Lines parameter
(pg,po,ps): Make sure each entry starts on new line.
2012-01-23 Hristian Kirtchev <kirtchev@adacore.com>
* a-calend.ads, a-calend.adb: Define types int and int_Pointer. Update
the parameter profile of procedure localtime_tzoff and its associated
comment.
(Day_Of_Week): Do not treat the input date as historical
with respect to time zones.
(Split): Do not treat the input
date as historical with respect to time zones. (Time_Of): Do
not treat the input constituents as forming a historical date
with respect to time zones.
(UTC_Time_Offset): Add new formal
parameter Is_Historic. Add local variable Flag. Update the call
to localtime_tzoff.
* a-catizo.ads, a-catizo.adb (UTC_Time_Offset): New routine.
(UTC_Time_Offset (Time)): Update the call to
Time_Zone_Operations.UTC_Time_Offset.
* sysdep.c (__gnat_localtime_tzoff): Update parameter
profile. Split the processing of offsets on Windows into two - one
part of historic time stamps and the other for the current time.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@183413 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-calend.ads')
| -rw-r--r-- | gcc/ada/a-calend.ads | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/gcc/ada/a-calend.ads b/gcc/ada/a-calend.ads index 428caef2f58..240e62cca98 100644 --- a/gcc/ada/a-calend.ads +++ b/gcc/ada/a-calend.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2012, 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 -- @@ -350,8 +350,12 @@ private package Time_Zones_Operations is - function UTC_Time_Offset (Date : Time) return Long_Integer; - -- Return the offset in seconds from UTC + function UTC_Time_Offset + (Date : Time; + Is_Historic : Boolean := True) return Long_Integer; + -- Return the offset in seconds from UTC of an arbitrary date. If flag + -- Is_Historic is set to False, then return the local time zone offset + -- regardless of what Date designates. end Time_Zones_Operations; |