diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-01-30 11:53:27 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-01-30 11:53:27 +0000 |
| commit | 516da07f0df9ee9e93d7c3e63e6c7ed15705efaf (patch) | |
| tree | e1c4661a1d7e0011561b6ba16029f5f972c60f67 /gcc/ada/exp_ch7.adb | |
| parent | 30fe3fdc205d195f8632894966a8319f1c17fc4b (diff) | |
| download | gcc-516da07f0df9ee9e93d7c3e63e6c7ed15705efaf.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@183711 138bc75d-0d04-0410-961f-82ee72b054a4
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 78a61807a33..9aac1230483 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 |