diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-03 16:45:56 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-03 16:45:56 +0200 |
| commit | e4982b648918b60ab55da0e34d59c9ed4644f30b (patch) | |
| tree | 2d32960fb664e091bc9b840b4f4cdbdfb1bc9b8b /gcc/ada/a-except-2005.adb | |
| parent | ac88396b5e3bf22b4013339e7980a748d88eddf7 (diff) | |
| download | gcc-e4982b648918b60ab55da0e34d59c9ed4644f30b.zip gcc-e4982b648918b60ab55da0e34d59c9ed4644f30b.tar.gz gcc-e4982b648918b60ab55da0e34d59c9ed4644f30b.tar.bz2 | |
[multiple changes]
2011-08-03 Ed Schonberg <schonberg@adacore.com>
* exp_ch5.adb (Expand_Iterator_Loop): indicate that the cursor is
modified in the source, to prevent spurious warnings when compiling
with -gnatg.
2011-08-03 Thomas Quinot <quinot@adacore.com>
* a-except-2005.adb: Minor reformatting.
2011-08-03 Ed Schonberg <schonberg@adacore.com>
* sem_warn.adb (Check_One_Unit): if the only mention of a withed unit
is a renaming declaration in the private part of a package, do not emit
a warning that the with_clause could be moved because the renaming may
be used in the body or in a child unit.
2011-08-03 Hristian Kirtchev <kirtchev@adacore.com>
* exp_ch6.adb (Make_Build_In_Place_Call_In_Object_Declaration):
Propagate the Comes_From_Source attribute from the original return
object to the renaming.
2011-08-03 Jose Ruiz <ruiz@adacore.com>
* exp_ch7.adb (Build_Raise_Statement): Do not call
Raise_From_Controlled_Operation when this routine is not present in
the run-time library.
(Cleanup_Protected_Object, Cleanup_Task): For restricted run-time
libraries (Ravenscar), tasks are non-terminating, and protected objects
and tasks can only appear at library level, so we do not want
finalization of protected objects nor tasks.
* exp_intr.adb: Minor clarification in comment.
bindgen.adb (Gen_Adainit_Ada, Gen_Main_C, Gen_Output_File_Ada,
Gen_Output_File_C): Remove references to finalization of library-level
objects when using restricted run-time libraries.
2011-08-03 Ed Schonberg <schonberg@adacore.com>
* sem_ch3.adb (Build_Discriminant_Constraints): Set
Original_Discriminant only if the parent type is a generic formal.
From-SVN: r177278
Diffstat (limited to 'gcc/ada/a-except-2005.adb')
| -rw-r--r-- | gcc/ada/a-except-2005.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/a-except-2005.adb b/gcc/ada/a-except-2005.adb index e69e859..e84b0e9 100644 --- a/gcc/ada/a-except-2005.adb +++ b/gcc/ada/a-except-2005.adb @@ -880,7 +880,7 @@ package body Ada.Exceptions is procedure Raise_From_Controlled_Operation (X : Ada.Exceptions.Exception_Occurrence) is - Prev_Exc : constant EOA := Get_Current_Excep.all; + Prev_Exc : constant EOA := Get_Current_Excep.all; begin -- We're raising an exception during finalization. If the finalization @@ -906,7 +906,7 @@ package body Ada.Exceptions is (Orig_Msg'First .. Orig_Msg'First + Orig_Prefix_Length - 1); begin - -- Message already has the proper prefix, just re-reraise + -- Message already has the proper prefix, just re-raise if Orig_Prefix = Prefix then Raise_Exception_No_Defer |