diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-09-15 12:26:49 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-09-15 12:26:49 +0200 |
| commit | 804ff4c33e766fb541315eb5d73d78924664e43e (patch) | |
| tree | a5eb4ff84c1901156784cb3a42643386cfad5ed1 /gcc/ada/a-exexpr-gcc.adb | |
| parent | 0b5b2bbc71dfb621df534b9cc16536eb083046ce (diff) | |
| download | gcc-804ff4c33e766fb541315eb5d73d78924664e43e.tar.gz | |
[multiple changes]
2011-09-15 Robert Dewar <dewar@adacore.com>
* tree_io.ads: Minor reformatting.
* a-intnam.ads: Fix bad header.
2011-09-15 Thomas Quinot <quinot@adacore.com>
* a-exexpr-gcc.adb: Minor reformatting.
2011-09-15 Yannick Moy <moy@adacore.com>
* sem_ch6.adb: Propagate information that an expression function comes
from source (otherwise references to this entity are not stored).
From-SVN: r178878
Diffstat (limited to 'gcc/ada/a-exexpr-gcc.adb')
| -rw-r--r-- | gcc/ada/a-exexpr-gcc.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/a-exexpr-gcc.adb b/gcc/ada/a-exexpr-gcc.adb index 1f11227c971..6321099b8ca 100644 --- a/gcc/ada/a-exexpr-gcc.adb +++ b/gcc/ada/a-exexpr-gcc.adb @@ -441,8 +441,7 @@ package body Exception_Propagation is -- Unwind_RaiseException to actually do the raise, taking care of -- handling the two phase scheme it implements. - procedure Propagate_Exception - is + procedure Propagate_Exception is Excep : constant EOA := Get_Current_Excep.all; GCC_Exception : GNAT_GCC_Exception_Access; |