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/atree.h | |
| 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/atree.h')
| -rw-r--r-- | gcc/ada/atree.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/atree.h b/gcc/ada/atree.h index e09f7e2..bad0765 100644 --- a/gcc/ada/atree.h +++ b/gcc/ada/atree.h @@ -359,6 +359,9 @@ extern struct Node *Nodes_Ptr; #define Parent atree__parent extern Node_Id Parent (Node_Id); +#define Original_Node atree__original_node +extern Node_Id Original_Node (Node_Id); + /* The auxiliary flags array which is allocated in parallel to Nodes */ struct Flags |