diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-07-16 15:00:24 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-07-16 15:00:24 +0200 |
| commit | 70805b8834c831e0df8241ee883b6d14c923f58e (patch) | |
| tree | b1c2bad6ede6a3472694bcb21d99b8631498961b /gcc/ada/a-exexpr-gcc.adb | |
| parent | be93c386585920cf9f235075a4b7fba74c0585ca (diff) | |
| download | gcc-70805b8834c831e0df8241ee883b6d14c923f58e.zip gcc-70805b8834c831e0df8241ee883b6d14c923f58e.tar.gz gcc-70805b8834c831e0df8241ee883b6d14c923f58e.tar.bz2 | |
[multiple changes]
2012-07-16 Robert Dewar <dewar@adacore.com>
* a-exexpr.adb, freeze.adb, a-exexpr-gcc.adb, a-except-2005.adb,
sem_eval.adb, s-fileio.adb: Minor reformatting.
2012-07-16 Javier Miranda <miranda@adacore.com>
* sem_prag.adb (Analyze_Pragma): Remove support for obsolescent
pragma CPP_Class.
* sem_ch13.adb (Analyze_Freeze_Entity): Add missing error on Ada
derivations of CPP types. Found updating the tests affected by
the removal of pragma CPP_Class.
2012-07-16 Thomas Quinot <quinot@adacore.com>
* back_end.adb: Minor reformatting.
2012-07-16 Thomas Quinot <quinot@adacore.com>
* exp_ch9.adb (Expand_N_Selective_Accept.Process_Accept_Alternative):
Remove junk test that was always true. For the case of no statements
following the ACCEPT, jump directly to End_Lab instead of
introducing an intermediate jump.
(Expand_N_Selective_Accept.Process_Delay_Alternative): Fix
predicate testing for presence of statements following the DELAY.
that was always true. For the case of no statements following
the ACCEPT, jump directly to End_Lab instead of introducing an
intermediate jump.
(Expand_N_Selective_Accept): Fix incorrect insertion point for
end label.
From-SVN: r189534
Diffstat (limited to 'gcc/ada/a-exexpr-gcc.adb')
| -rw-r--r-- | gcc/ada/a-exexpr-gcc.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/ada/a-exexpr-gcc.adb b/gcc/ada/a-exexpr-gcc.adb index e266cb4..e62ffd2 100644 --- a/gcc/ada/a-exexpr-gcc.adb +++ b/gcc/ada/a-exexpr-gcc.adb @@ -203,8 +203,7 @@ package body Exception_Propagation is -- directly from gigi. function Setup_Current_Excep - (GCC_Exception : not null GCC_Exception_Access) - return EOA; + (GCC_Exception : not null GCC_Exception_Access) return EOA; pragma Export (C, Setup_Current_Excep, "__gnat_setup_current_excep"); -- Write Get_Current_Excep.all from GCC_Exception @@ -344,8 +343,7 @@ package body Exception_Propagation is ------------------------- function Setup_Current_Excep - (GCC_Exception : not null GCC_Exception_Access) - return EOA + (GCC_Exception : not null GCC_Exception_Access) return EOA is Excep : constant EOA := Get_Current_Excep.all; @@ -427,6 +425,7 @@ package body Exception_Propagation is (GCC_Exception : not null GCC_Exception_Access) is Excep : EOA; + begin -- Perform a standard raise first. If a regular handler is found, it -- will be entered after all the intermediate cleanups have run. If |