diff options
| author | Robert Dewar <dewar@adacore.com> | 2008-03-26 08:38:28 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-03-26 08:38:28 +0100 |
| commit | 06eab6a7fadd9a6502a7fe439140f8ac1091231e (patch) | |
| tree | 98cf57933dcfc760e203fc2231fbda94827b9349 /gcc/ada/restrict.adb | |
| parent | e10dab7f8dc252e8fa7cb42a4f4452b0f493bdcc (diff) | |
| download | gcc-06eab6a7fadd9a6502a7fe439140f8ac1091231e.zip gcc-06eab6a7fadd9a6502a7fe439140f8ac1091231e.tar.gz gcc-06eab6a7fadd9a6502a7fe439140f8ac1091231e.tar.bz2 | |
exp_ch11.adb (Expand_At_End_Handler): Set From_At_End flag on raise stmt.
2008-03-26 Robert Dewar <dewar@adacore.com>
Arnaud Charlet <charlet@adacore.com>
* exp_ch11.adb (Expand_At_End_Handler): Set From_At_End flag on raise
stmt.
(No_Exception_Propagation_Active): New function.
(Expand_Exception_Handlers): Use No_Exception_Propagation_Active.
Update comments, and review all uses of No_Exception_Propagation, which
are now correct and in sync with what gigi expects.
* restrict.ads, restrict.adb (No_Exception_Propagation_Active): New
function.
(Expand_Exception_Handlers): Use No_Exception_Propagation_Active.
Update comments, and review all uses of No_Exception_Propagation, which
are now correct and in sync with what gigi expects.
From-SVN: r133560
Diffstat (limited to 'gcc/ada/restrict.adb')
| -rw-r--r-- | gcc/ada/restrict.adb | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/gcc/ada/restrict.adb b/gcc/ada/restrict.adb index 8513408..068d601 100644 --- a/gcc/ada/restrict.adb +++ b/gcc/ada/restrict.adb @@ -26,6 +26,7 @@ with Atree; use Atree; with Casing; use Casing; with Errout; use Errout; +with Debug; use Debug; with Fname; use Fname; with Fname.UF; use Fname.UF; with Lib; use Lib; @@ -430,6 +431,18 @@ package body Restrict is Restrictions.Set (No_Exception_Propagation)); end No_Exception_Handlers_Set; + ------------------------------------- + -- No_Exception_Propagation_Active -- + ------------------------------------- + + function No_Exception_Propagation_Active return Boolean is + begin + return (No_Run_Time_Mode + or else Configurable_Run_Time_Mode + or else Debug_Flag_Dot_G) + and then Restriction_Active (No_Exception_Propagation); + end No_Exception_Propagation_Active; + ---------------------------------- -- Process_Restriction_Synonyms -- ---------------------------------- |