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.ads | |
| 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.ads')
| -rw-r--r-- | gcc/ada/restrict.ads | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/restrict.ads b/gcc/ada/restrict.ads index e82449e..0cd4dbf 100644 --- a/gcc/ada/restrict.ads +++ b/gcc/ada/restrict.ads @@ -249,6 +249,10 @@ package Restrict is -- set. In the latter case, the source may contain handlers but they either -- get converted using the local goto transformation or deleted. + function No_Exception_Propagation_Active return Boolean; + -- Test to see if current restrictions settings specify that no + -- exception propagation is activated. + function Process_Restriction_Synonyms (N : Node_Id) return Name_Id; -- Id is a node whose Chars field contains the name of a restriction. -- If it is one of synonyms that we allow for historical purposes (for |