From 1def9494aca2a532697db5738b260fcdf030e86b Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 17 Aug 2009 11:52:27 +0200 Subject: [PATCH] [multiple changes] 2009-08-17 Thomas Quinot * tbuild.adb: Minor reformatting 2009-08-17 Hristian Kirtchev * sysdep.c (__gnat_localtime_tzoff): Complete previous change. From-SVN: r150830 --- gcc/ada/ChangeLog | 9 +++++++++ gcc/ada/sysdep.c | 2 +- gcc/ada/tbuild.adb | 3 +-- 3 files changed, 11 insertions(+), 3 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index a8cc86b4770b..963d30719d32 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,12 @@ +2009-08-17 Arnaud Charlet + + * make.adb (Process_Multilib, Scan_Make_Arg): Refine previous change + and ignore -mieee switch to avoid spawning an extra gcc in this case. + +2009-08-17 Thomas Quinot + + * tbuild.adb: Minor reformatting + 2009-08-17 Ed Schonberg * exp_ch3.adb (Build_Discriminant_Formals): If the discriminals already diff --git a/gcc/ada/sysdep.c b/gcc/ada/sysdep.c index 6019fd9cf91a..608246e25304 100644 --- a/gcc/ada/sysdep.c +++ b/gcc/ada/sysdep.c @@ -913,7 +913,7 @@ __gnat_localtime_tzoff (const time_t *timer, long *off) /* Correct the offset if Daylight Saving Time is in effect */ if (tp.tm_isdst > 0) - *off = *off - 3600; + *off = *off + 3600; } (*Unlock_Task) (); diff --git a/gcc/ada/tbuild.adb b/gcc/ada/tbuild.adb index 7273fde67036..52f6fbf17a18 100644 --- a/gcc/ada/tbuild.adb +++ b/gcc/ada/tbuild.adb @@ -446,8 +446,7 @@ package body Tbuild is Related_Node : Node_Id := Empty) return Node_Id is Temp : constant Node_Id := - Make_Defining_Identifier (Loc, - Chars => New_Internal_Name (Id)); + Make_Defining_Identifier (Loc, Chars => New_Internal_Name (Id)); begin Set_Related_Expression (Temp, Related_Node); return Temp; -- 2.47.2