diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 12:41:02 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 12:41:02 +0000 |
commit | 7b047578f22225a362e6da37f4fa100a5a3742a8 (patch) | |
tree | e20c6f34889b4e167544eb4d0d0ee2788fa476cd /gcc/ada/a-except.adb | |
parent | aada9bb5762237f333b99a2e231beb8252da0b17 (diff) | |
download | ppe42-gcc-7b047578f22225a362e6da37f4fa100a5a3742a8.tar.gz ppe42-gcc-7b047578f22225a362e6da37f4fa100a5a3742a8.zip |
2011-08-29 Tristan Gingold <gingold@adacore.com>
* a-exexpr.adb (Setup_Exception): Removed.
* a-exexpr-gcc.adb (Setup_Exception): Removed.
* a-except.adb (Exception_Propagation): Removed.
* a-except-2005.adb (Setup_Exception): Removed.
(Reraise): Remove call to Setup_Exception.
(Reraise_Occurrence): Ditto.
(Reraise_Occurrence_Always): Ditto.
(Reraise_Occurrence_No_Defer): Ditto.
(Transfer_Occurrence): Ditto.
* a-exexda.adb (Set_Exception_C_Msg): Remove call to Setup_Exception.
(Set_Exception_Msg): Ditto.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178214 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-except.adb')
-rw-r--r-- | gcc/ada/a-except.adb | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/gcc/ada/a-except.adb b/gcc/ada/a-except.adb index fe1ca520c8c..44ccc9a58f7 100644 --- a/gcc/ada/a-except.adb +++ b/gcc/ada/a-except.adb @@ -209,16 +209,6 @@ package body Ada.Exceptions is end Exception_Traces; - package Exception_Propagation is - - procedure Setup_Exception - (Excep : EOA; - Current : EOA; - Reraised : Boolean := False); - -- Dummy routine used to share a-exexda.adb, do nothing - - end Exception_Propagation; - package Stream_Attributes is -------------------------------- @@ -677,22 +667,6 @@ package body Ada.Exceptions is -- This package can be easily dummied out if we do not want the basic -- support for exception messages (such as in Ada 83). - package body Exception_Propagation is - - procedure Setup_Exception - (Excep : EOA; - Current : EOA; - Reraised : Boolean := False) - is - pragma Warnings (Off, Excep); - pragma Warnings (Off, Current); - pragma Warnings (Off, Reraised); - begin - null; - end Setup_Exception; - - end Exception_Propagation; - ---------------------- -- Exception_Traces -- ---------------------- |