diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 10:46:57 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 10:46:57 +0000 |
| commit | 76767c36a1ff9b7bdeeb5d8cd4e678e9ec7174ee (patch) | |
| tree | ad06b98e051e01d32fdbef3c6563086d7ec598d3 /gcc/ada/exp_intr.adb | |
| parent | dd4f1c572c2bfa620e5ae5e80e1f9c3b5b64d7d0 (diff) | |
| download | gcc-76767c36a1ff9b7bdeeb5d8cd4e678e9ec7174ee.tar.gz | |
2011-08-29 Robert Dewar <dewar@adacore.com>
* sem_ch7.adb, make.adb, sem_res.adb, exp_intr.adb,
exp_dist.adb: Minor code reorganization.
Minor reformatting.
2011-08-29 Thomas Quinot <quinot@adacore.com>
* sem_cat.adb (Validate_RACW_Primitive): The return type of an RACW
primitive operation must support external streaming if it is not a
controlling access result.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178199 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_intr.adb')
| -rw-r--r-- | gcc/ada/exp_intr.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/exp_intr.adb b/gcc/ada/exp_intr.adb index 778996bc023..ce05b42b30f 100644 --- a/gcc/ada/exp_intr.adb +++ b/gcc/ada/exp_intr.adb @@ -1229,13 +1229,13 @@ package body Exp_Intr is -- Generate a test of whether any earlier finalization raised an -- exception, and in that case raise Program_Error with the previous -- exception occurrence. - -- + -- Generate: - -- if Raised then - -- Reraise_Occurrence (E); -- for .NET and - -- -- restricted RTS + -- if Raised and then not Abort then + -- Reraise_Occurrence (E); -- for .NET and + -- -- restricted RTS -- <or> - -- Raise_From_Controlled_Operation (E, Abort); -- all other cases + -- Raise_From_Controlled_Operation (E); -- all other cases -- end if; if Present (Raised_Id) then |