From 804ff4c33e766fb541315eb5d73d78924664e43e Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 15 Sep 2011 12:26:49 +0200 Subject: [multiple changes] 2011-09-15 Robert Dewar * tree_io.ads: Minor reformatting. * a-intnam.ads: Fix bad header. 2011-09-15 Thomas Quinot * a-exexpr-gcc.adb: Minor reformatting. 2011-09-15 Yannick Moy * sem_ch6.adb: Propagate information that an expression function comes from source (otherwise references to this entity are not stored). From-SVN: r178878 --- gcc/ada/a-exexpr-gcc.adb | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'gcc/ada/a-exexpr-gcc.adb') 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; -- cgit v1.2.1