diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-29 14:48:33 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-29 14:48:33 +0200 |
| commit | 590549fbed8b78dc7fbe8708ab4a25e0a5939995 (patch) | |
| tree | bcccd6b829524a56b32c0d2e91de2fe117756799 /gcc/ada/a-exexpr-gcc.adb | |
| parent | 62380e66a503c97a2cf222ede1f5b2665bdbed38 (diff) | |
| download | gcc-590549fbed8b78dc7fbe8708ab4a25e0a5939995.zip gcc-590549fbed8b78dc7fbe8708ab4a25e0a5939995.tar.gz gcc-590549fbed8b78dc7fbe8708ab4a25e0a5939995.tar.bz2 | |
[multiple changes]
2011-08-29 Tristan Gingold <gingold@adacore.com>
* a-exexpr.adb (Propagate_Exception): Remove all the parameters as
they were unused.
* a-exexpr-gcc.adb (Propagate_Exception): Ditto.
* a-except-2005.adb (Propagate_Exception): Adjust spec.
(Raise_Current_Excep): Adjust call.
(Raise_From_Signal_Handler): Call now simply call Raise_Current_Excep.
2011-08-29 Thomas Quinot <quinot@adacore.com>
* exp_disp.adb: Minor reformatting.
From-SVN: r178215
Diffstat (limited to 'gcc/ada/a-exexpr-gcc.adb')
| -rw-r--r-- | gcc/ada/a-exexpr-gcc.adb | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/gcc/ada/a-exexpr-gcc.adb b/gcc/ada/a-exexpr-gcc.adb index 43099d1..a433ddd 100644 --- a/gcc/ada/a-exexpr-gcc.adb +++ b/gcc/ada/a-exexpr-gcc.adb @@ -445,12 +445,7 @@ package body Exception_Propagation is -- handling the two phase scheme it implements. procedure Propagate_Exception - (E : Exception_Id; - From_Signal_Handler : Boolean) is - pragma Inspection_Point (E); - pragma Unreferenced (From_Signal_Handler); - Excep : constant EOA := Get_Current_Excep.all; GCC_Exception : GNAT_GCC_Exception_Access; |