diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-08-17 09:52:27 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-08-17 09:52:27 +0000 |
| commit | 7183c9a219d9afd9fb960dc4a722020374e5dfaf (patch) | |
| tree | 3152464b0472a4f20ce1ccd470de55c862949126 /gcc/ada | |
| parent | 826fd3797de2a726f52ed4ce5f1525fe9405176e (diff) | |
| download | gcc-7183c9a219d9afd9fb960dc4a722020374e5dfaf.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@150830 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada')
| -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 a8cc86b4770..963d30719d3 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 6019fd9cf91..608246e2530 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 7273fde6703..52f6fbf17a1 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; |