diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-01-30 12:53:27 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-01-30 12:53:27 +0100 |
| commit | f849ad6ff8acbccd10cd3f3e2277ba1fc9a0cb66 (patch) | |
| tree | e1c4661a1d7e0011561b6ba16029f5f972c60f67 /gcc/ada/exp_ch7.adb | |
| parent | 37da997b17c1352e72d661f1426d78aa488c3399 (diff) | |
| download | gcc-f849ad6ff8acbccd10cd3f3e2277ba1fc9a0cb66.zip gcc-f849ad6ff8acbccd10cd3f3e2277ba1fc9a0cb66.tar.gz gcc-f849ad6ff8acbccd10cd3f3e2277ba1fc9a0cb66.tar.bz2 | |
[multiple changes]
2012-01-30 Hristian Kirtchev <kirtchev@adacore.com>
* exp_ch7.adb (Build_Finalizer_Call): Set loc again.
* exp_ch11.adb (Expand_At_End_Handler): Do not provide a source
location for the wrapped call to the original AT_END routine
and the subsequent return statement.
2012-01-30 Pascal Obry <obry@adacore.com>
* s-rannum.adb: Minor reformatting.
2012-01-30 Hristian Kirtchev <kirtchev@adacore.com>
* a-calend-vms.adb, a-calend.adb: Increment the number of leap seconds
to 25 and add the hard time value for 2012-06-30.
From-SVN: r183711
Diffstat (limited to 'gcc/ada/exp_ch7.adb')
| -rw-r--r-- | gcc/ada/exp_ch7.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/exp_ch7.adb b/gcc/ada/exp_ch7.adb index 78a6180..9aac123 100644 --- a/gcc/ada/exp_ch7.adb +++ b/gcc/ada/exp_ch7.adb @@ -2843,7 +2843,7 @@ package body Exp_Ch7 is -- Determine whether N denotes the protected version of a subprogram -- which belongs to a protected type. - Loc : constant Source_Ptr := No_Location; + Loc : constant Source_Ptr := Sloc (N); HSS : Node_Id; begin |