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/gcc-interface/trans.c | |
| 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/gcc-interface/trans.c')
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 29 |
1 files changed, 21 insertions, 8 deletions
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index d99eda8..b0cbedb 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -90,6 +90,7 @@ static location_t block_end_locus_sink; /* Pointers to front-end tables accessed through macros. */ struct Node *Nodes_Ptr; +struct Flags *Flags_Ptr; Node_Id *Next_Node_Ptr; Node_Id *Prev_Node_Ptr; struct Elist_Header *Elists_Ptr; @@ -273,15 +274,26 @@ static const char *decode_name (const char *) ATTRIBUTE_UNUSED; structures and then generates code. */ void -gigi (Node_Id gnat_root, int max_gnat_node, int number_name ATTRIBUTE_UNUSED, - struct Node *nodes_ptr, Node_Id *next_node_ptr, Node_Id *prev_node_ptr, - struct Elist_Header *elists_ptr, struct Elmt_Item *elmts_ptr, - struct String_Entry *strings_ptr, Char_Code *string_chars_ptr, - struct List_Header *list_headers_ptr, Nat number_file, +gigi (Node_Id gnat_root, + int max_gnat_node, + int number_name ATTRIBUTE_UNUSED, + struct Node *nodes_ptr, + struct Flags *flags_ptr, + Node_Id *next_node_ptr, + Node_Id *prev_node_ptr, + struct Elist_Header *elists_ptr, + struct Elmt_Item *elmts_ptr, + struct String_Entry *strings_ptr, + Char_Code *string_chars_ptr, + struct List_Header *list_headers_ptr, + Nat number_file, struct File_Info_Type *file_info_ptr, - Entity_Id standard_boolean, Entity_Id standard_integer, - Entity_Id standard_character, Entity_Id standard_long_long_float, - Entity_Id standard_exception_type, Int gigi_operating_mode) + Entity_Id standard_boolean, + Entity_Id standard_integer, + Entity_Id standard_character, + Entity_Id standard_long_long_float, + Entity_Id standard_exception_type, + Int gigi_operating_mode) { Node_Id gnat_iter; Entity_Id gnat_literal; @@ -293,6 +305,7 @@ gigi (Node_Id gnat_root, int max_gnat_node, int number_name ATTRIBUTE_UNUSED, max_gnat_nodes = max_gnat_node; Nodes_Ptr = nodes_ptr; + Flags_Ptr = flags_ptr; Next_Node_Ptr = next_node_ptr; Prev_Node_Ptr = prev_node_ptr; Elists_Ptr = elists_ptr; |