diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-01-21 08:47:43 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-01-21 08:47:43 +0100 |
| commit | 4bcf68150f3205da124e9ea303444ebbcb22c151 (patch) | |
| tree | 6a5905648b64368c86fe9569e960384b27f0aa55 /gcc/ada/back_end.adb | |
| parent | 721ee6cf8ed7f7b67a4f90d29c2e92b39b5ddf95 (diff) | |
| download | gcc-4bcf68150f3205da124e9ea303444ebbcb22c151.zip gcc-4bcf68150f3205da124e9ea303444ebbcb22c151.tar.gz gcc-4bcf68150f3205da124e9ea303444ebbcb22c151.tar.bz2 | |
[multiple changes]
2014-01-21 Robert Dewar <dewar@adacore.com>
* gcc-interface/gigi.h: Get Flags array address.
* gcc-interface/trans.c: Acquire Flags array address.
* atree.adb: Add support for Flags array and Flag0,1,2,3.
* atree.ads: Add support for Flags array and Flag0,1,2,3.
* atree.h: Add support for Flags array and Flag0,1,2,3.
* back_end.adb: Pass Flags array address to gigi.
2014-01-21 Ed Schonberg <schonberg@adacore.com>
* sem_ch8.adb (Attribute_Renaming): Transfer original attribute
reference to generated body so that legality checks on stream
attributes are properly applied. If type is tagged and already
frozen, insert generated body at the point of the renaming
declaration.
2014-01-21 Ed Schonberg <schonberg@adacore.com>
* sem_ch12.adb: Code clean up.
* sem_ch8.adb: Minor reformatting
From-SVN: r206870
Diffstat (limited to 'gcc/ada/back_end.adb')
| -rw-r--r-- | gcc/ada/back_end.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/ada/back_end.adb b/gcc/ada/back_end.adb index 577d004..6488da1 100644 --- a/gcc/ada/back_end.adb +++ b/gcc/ada/back_end.adb @@ -87,6 +87,7 @@ package body Back_End is max_gnat_node : Int; number_name : Nat; nodes_ptr : Address; + flags_ptr : Address; next_node_ptr : Address; prev_node_ptr : Address; @@ -141,6 +142,7 @@ package body Back_End is max_gnat_node => Int (Last_Node_Id - First_Node_Id + 1), number_name => Name_Entries_Count, nodes_ptr => Nodes_Address, + flags_ptr => Flags_Address, next_node_ptr => Next_Node_Address, prev_node_ptr => Prev_Node_Address, |