diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-15 12:46:56 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-15 12:46:56 +0200 |
| commit | 1f6821b4dcdcc3bf95f6aa4551cc755e113162be (patch) | |
| tree | 10bddee8ce636cf702726cb420bef283041bab7d /gcc/ada/par-ch11.adb | |
| parent | 507ed3fd5bb9f377bade052259a61d53d3a7bedc (diff) | |
| download | gcc-1f6821b4dcdcc3bf95f6aa4551cc755e113162be.zip gcc-1f6821b4dcdcc3bf95f6aa4551cc755e113162be.tar.gz gcc-1f6821b4dcdcc3bf95f6aa4551cc755e113162be.tar.bz2 | |
[multiple changes]
2009-04-15 Robert Dewar <dewar@adacore.com>
* frontend.adb (Frontend): Set proper default for
Warn_On_Non_Local_Exception.
* opt.ads (Exception_Handler_Encountered): New flag
(No_Warn_On_Non_Local_Exception): New flag
* par-ch11.adb (P_Exception_Handler): Set Exception_Handler_Encountered
* sem_warn.adb (Set_Warning_Switch): Set No_Warn_On_Non_Local_Exception
(Set_Dot_Warning_Switch): Set No_Warn_On_Non_Local_Exception
2009-04-15 Cyrille Comar <comar@adacore.com>
* s-tassta.adb, a-exextr.adb, a-elchha.adb
(Ada.Exception.Last_Chance_Handler): Do not print unhandled exception
message when exception traces are active since it would generate
redundant information.
(Exception_Traces.Notify_Exception): put message output by a critical
section to avoid unsynchronized output.
(Trace_Unhandled_Exception_In_Task): put message output by a critical
section to avoid unsynchronized output.
2009-04-15 Emmanuel Briot <briot@adacore.com>
* g-comlin.adb, prj-tree.adb, prj-tree.ads, prj.adb, prj.ads
(Free): New subprogram.
From-SVN: r146100
Diffstat (limited to 'gcc/ada/par-ch11.adb')
| -rw-r--r-- | gcc/ada/par-ch11.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/par-ch11.adb b/gcc/ada/par-ch11.adb index 412456e..14129bc 100644 --- a/gcc/ada/par-ch11.adb +++ b/gcc/ada/par-ch11.adb @@ -92,6 +92,7 @@ package body Ch11 is Choice_Param_Node : Node_Id; begin + Exception_Handler_Encountered := True; Handler_Node := New_Node (N_Exception_Handler, Token_Ptr); Set_Local_Raise_Statements (Handler_Node, No_Elist); |