diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 14:32:43 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 14:32:43 +0000 |
| commit | 1dceb63e5940445ceb877e01145ff4b1f5d5dc83 (patch) | |
| tree | 5b0e00002daef44290edd3196cd25f963c17a158 /gcc/ada/s-finmas.adb | |
| parent | 9b2f616e75a70722c37ba9728e3bd2ec7607ef35 (diff) | |
| download | gcc-1dceb63e5940445ceb877e01145ff4b1f5d5dc83.tar.gz | |
2011-08-29 Robert Dewar <dewar@adacore.com>
* impunit.adb, exp_ch4.adb, s-finmas.adb: Minor reformatting.
2011-08-29 Thomas Quinot <quinot@adacore.com>
* exp_dist.adb (TC_Rec_Add_Process_Element): For a choice with multiple
values, we generate multiple triples of parameters in the TypeCode.
Bump Choice_Index for each such triple so that a subsequent default
choice is associated with the correct index in the typecode.
2011-08-29 Ed Schonberg <schonberg@adacore.com>
* a-cdlili.adb (Iterate): Initialize properly an iterator over a null
container.
(First, Last): Handle properly an iterator over a null container.
2011-08-29 Bob Duff <duff@adacore.com>
* sem_ch10.adb (Analyze_With_Clause,Install_Withed_Unit): Abandon
processing if we run across a node with no Scope. This can happen if
we're with-ing an library-level instance, and that instance got errors
that caused "instantiation abandoned".
* sem_util.adb (Unit_Declaration_Node): Make it more robust, by raising
an exception instead of using Assert, so it won't go into an infinite
loop, even when assertions are turned off.
2011-08-29 Ed Schonberg <schonberg@adacore.com>
* a-coorse.adb: Proper handling of empty ordered sets.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178249 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-finmas.adb')
| -rw-r--r-- | gcc/ada/s-finmas.adb | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/ada/s-finmas.adb b/gcc/ada/s-finmas.adb index 72b87dfe462..a08bb08a494 100644 --- a/gcc/ada/s-finmas.adb +++ b/gcc/ada/s-finmas.adb @@ -29,7 +29,8 @@ -- -- ------------------------------------------------------------------------------ -with Ada.Exceptions; use Ada.Exceptions; +with Ada.Exceptions; use Ada.Exceptions; + with System.Address_Image; with System.HTable; use System.HTable; with System.IO; use System.IO; @@ -241,12 +242,10 @@ package body System.Finalization_Masters is (Obj : System.Address) return Finalize_Address_Ptr is Result : Finalize_Address_Ptr; - begin Lock_Task.all; Result := Finalize_Address_Table.Get (Obj); Unlock_Task.all; - return Result; end Finalize_Address; |