diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-08-17 11:52:27 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-08-17 11:52:27 +0200 |
| commit | 1def9494aca2a532697db5738b260fcdf030e86b (patch) | |
| tree | 3152464b0472a4f20ce1ccd470de55c862949126 | |
| parent | 579fab006fdfb1ad425c0ebad6c35fef4ead6b0a (diff) | |
| download | gcc-1def9494aca2a532697db5738b260fcdf030e86b.zip gcc-1def9494aca2a532697db5738b260fcdf030e86b.tar.gz gcc-1def9494aca2a532697db5738b260fcdf030e86b.tar.bz2 | |
[multiple changes]
2009-08-17 Thomas Quinot <quinot@adacore.com>
* tbuild.adb: Minor reformatting
2009-08-17 Hristian Kirtchev <kirtchev@adacore.com>
* sysdep.c (__gnat_localtime_tzoff): Complete previous change.
From-SVN: r150830
| -rw-r--r-- | gcc/ada/ChangeLog | 9 | ||||
| -rw-r--r-- | gcc/ada/sysdep.c | 2 | ||||
| -rw-r--r-- | gcc/ada/tbuild.adb | 3 |
3 files changed, 11 insertions, 3 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index a8cc86b..963d307 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,12 @@ +2009-08-17 Arnaud Charlet <charlet@adacore.com> + + * 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 <quinot@adacore.com> + + * tbuild.adb: Minor reformatting + 2009-08-17 Ed Schonberg <schonberg@adacore.com> * exp_ch3.adb (Build_Discriminant_Formals): If the discriminals already diff --git a/gcc/ada/sysdep.c b/gcc/ada/sysdep.c index 6019fd9..608246e 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 7273fde..52f6fbf 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; |