From d99ff0f407dadb7b1e576416c5de4dce43151222 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 26 Apr 2012 12:03:51 +0200 Subject: [multiple changes] 2012-04-26 Hristian Kirtchev * sem_ch5.adb (Analyze_Loop_Parameter_Specification): Do not freeze the loop variable while preanalyzing a quantified expression. 2012-04-26 Hristian Kirtchev * a-calend.adb (Split, Time_Of): Rename parameter Is_Ada_05 to Use_TZ to better illustrate its function. Update all references to the parameter. (To_Ada_Time): Update the call to Formatting_Operations.Time_Of. * a-calend.ads (Split, Time_Of): Rename parameter Is_Ada_05 to Use_TZ to better illustrate its function. Update the related comment on usage. * a-calend-vms.adb (Split, Time_Of): Rename parameter Is_Ada_05 to Use_TZ to better illustrate its function. Update all references to the parameter. (To_Ada_Time): Update the call to Formatting_Operations.Time_Of. * a-calend-vms.ads (Split, Time_Of): Rename parameter Is_Ada_05 to Use_TZ to better illustrate its function. Update the related comment on usage. * a-calfor.adb (Split, Time_Of): Update the call to Formatting_Operations.Time_Of. * sysdep.c (__gnat_localtime_tzoff): Dereference pointer "is_historic" and rewrite the check as a comparison. Add a comment on flag values. 2012-04-26 Robert Dewar * exp_ch2.adb, sem_ch8.adb: Minor reformatting. 2012-04-26 Vasiliy Fofanov * a-stzunb-shared.adb, gnat_ugn.texi, a-strunb-shared.adb, a-strunb-shared.ads, uintp.adb, a-stwiun-shared.adb, a-stwiun-shared.ads, a-cbhama.ads, vms_data.ads, a-cobove.adb, a-convec.adb, sem_ch13.adb, a-cbhase.ads: Fix common misuses of the word "then" where "than" should be used in English. From-SVN: r186871 --- gcc/ada/a-calend.ads | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'gcc/ada/a-calend.ads') diff --git a/gcc/ada/a-calend.ads b/gcc/ada/a-calend.ads index 60319c2..d169719 100644 --- a/gcc/ada/a-calend.ads +++ b/gcc/ada/a-calend.ads @@ -351,11 +351,11 @@ private Second : out Integer; Sub_Sec : out Duration; Leap_Sec : out Boolean; - Is_Ada_05 : Boolean; + Use_TZ : Boolean; Time_Zone : Long_Integer); - -- Split a time value into its components. Set Is_Ada_05 to use the - -- local time zone (the value in Time_Zone is ignored) when splitting - -- a time value. + -- Split a time value into its components. Set Use_TZ to use the local + -- time zone (the value in Time_Zone is ignored) when splitting a time + -- value. function Time_Of (Year : Year_Number; @@ -368,12 +368,12 @@ private Sub_Sec : Duration; Leap_Sec : Boolean := False; Use_Day_Secs : Boolean := False; - Is_Ada_05 : Boolean := False; + Use_TZ : Boolean := False; Time_Zone : Long_Integer := 0) return Time; -- Given all the components of a date, return the corresponding time -- value. Set Use_Day_Secs to use the value in Day_Secs, otherwise the -- day duration will be calculated from Hour, Minute, Second and Sub_ - -- Sec. Set Is_Ada_05 to use the local time zone (the value in formal + -- Sec. Set Use_TZ to use the local time zone (the value in formal -- Time_Zone is ignored) when building a time value and to verify the -- validity of a requested leap second. -- cgit v1.1