diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-02 10:27:16 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-02 10:27:16 +0000 |
| commit | 47ac4bbc1c794774b68c9dc7a28d36b806a38a8d (patch) | |
| tree | b4ee8d576fb450f09c1b861f596dfff8de7dd0d7 /gcc/ada/a-except-2005.adb | |
| parent | c6769a7d8db20b4c4a646cda8bf07cfb8a9fb804 (diff) | |
| download | gcc-47ac4bbc1c794774b68c9dc7a28d36b806a38a8d.tar.gz | |
2011-08-02 Robert Dewar <dewar@adacore.com>
* sem_ch5.adb, sem_ch7.adb, einfo.ads, sem_util.adb, sem_util.ads,
sem_res.adb, sem_ch6.adb: Minor reformatting.
2011-08-02 Jerome Guitton <guitton@adacore.com>
* a-except-2005.adb (Raise_Current_Excep): Remove obsolete dead code.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177127 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-except-2005.adb')
| -rw-r--r-- | gcc/ada/a-except-2005.adb | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/gcc/ada/a-except-2005.adb b/gcc/ada/a-except-2005.adb index cbf1e4deb89..6441fd6d164 100644 --- a/gcc/ada/a-except-2005.adb +++ b/gcc/ada/a-except-2005.adb @@ -829,31 +829,6 @@ package body Ada.Exceptions is ------------------------- procedure Raise_Current_Excep (E : Exception_Id) is - - pragma Inspection_Point (E); - -- This is so the debugger can reliably inspect the parameter when - -- inserting a breakpoint at the start of this procedure. - - -- To provide support for breakpoints on unhandled exceptions, the - -- debugger will also need to be able to inspect the value of E from - -- inner frames so we need to make sure that its value is also spilled - -- on stack. We take the address and dereference using volatile local - -- objects for this purpose. - - -- The pragma Warnings (Off) are needed because the compiler knows that - -- these locals are not referenced and that this use of pragma Volatile - -- is peculiar! - - type EID_Access is access Exception_Id; - - Access_To_E : EID_Access := E'Unrestricted_Access; - pragma Volatile (Access_To_E); - pragma Warnings (Off, Access_To_E); - - Id : Exception_Id := Access_To_E.all; - pragma Volatile (Id); - pragma Warnings (Off, Id); - begin Debug_Raise_Exception (E => SSL.Exception_Data_Ptr (E)); Exception_Propagation.Propagate_Exception |