diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-04-25 11:40:48 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-04-25 11:40:48 +0200 |
| commit | d9049849d0052ba4c7ab5585d896c7e746add39f (patch) | |
| tree | feb0e278249ba4e4be2b9c2dcd18ecd5c5e3f302 /gcc/ada/exp_ch8.adb | |
| parent | db78cb813401d088fb7ad35825f0bac9b9ef4754 (diff) | |
| download | gcc-d9049849d0052ba4c7ab5585d896c7e746add39f.zip gcc-d9049849d0052ba4c7ab5585d896c7e746add39f.tar.gz gcc-d9049849d0052ba4c7ab5585d896c7e746add39f.tar.bz2 | |
[multiple changes]
2017-04-25 Bob Duff <duff@adacore.com>
* s-secsta.adb (SS_Info): Add a comment
explaining why we don't need to walk all the chunks in order to
compute the total size.
2017-04-25 Bob Duff <duff@adacore.com>
* namet.ads, namet.adb (Global_Name_Buffer): Increase the length
of the global name buffer to 4*Max_Line_Length.
2017-04-25 Javier Miranda <miranda@adacore.com>
* exp_ch8.adb (Expand_N_Object_Renaming_Declaration): When creating a
renaming entity for debug information, mark the entity as needing debug
info if it comes from sources.
2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
* sem_ch13.adb (Analyze_Attribute_Definition_Clause): Remove the
restriction converning the use of 'Address where the prefix is
of a controlled type.
2017-04-25 Pierre-Marie de Rodat <derodat@adacore.com>
* exp_dbug.adb: In Debug_Renaming_Declaration,
skip slices that are made redundant by an indexed component
access.
* atree.h: New definition for Original_Node.
From-SVN: r247166
Diffstat (limited to 'gcc/ada/exp_ch8.adb')
| -rw-r--r-- | gcc/ada/exp_ch8.adb | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gcc/ada/exp_ch8.adb b/gcc/ada/exp_ch8.adb index 9a4e5e5..7af33b3 100644 --- a/gcc/ada/exp_ch8.adb +++ b/gcc/ada/exp_ch8.adb @@ -187,7 +187,13 @@ package body Exp_Ch8 is Make_Build_In_Place_Call_In_Anonymous_Context (Nam); end if; - -- Create renaming entry for debug information + -- Create renaming entry for debug information. Mark the entity as + -- needing debug info if it comes from sources because the current + -- setting in Freeze_Entity occurs too late. ??? + + if Comes_From_Source (Defining_Identifier (N)) then + Set_Debug_Info_Needed (Defining_Identifier (N)); + end if; Decl := Debug_Renaming_Declaration (N); |