diff options
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/ada-tree.h | 9 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 10 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/utils.c | 3 |
4 files changed, 15 insertions, 13 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 8d822c71132..7628abb53e2 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,9 @@ +2009-04-21 Taras Glek <tglek@mozilla.com> + + * gcc-interface/ada-tree.h: Update GTY annotations to new syntax. + * gcc-interface/trans.c: Likewise. + * gcc-interface/utils.c: Likewise. + 2009-04-22 Ed Schonberg <schonberg@adacore.com> * sem_res.adb: Create block around procedure call when actual is a diff --git a/gcc/ada/gcc-interface/ada-tree.h b/gcc/ada/gcc-interface/ada-tree.h index cd2b9703887..f26781eff0a 100644 --- a/gcc/ada/gcc-interface/ada-tree.h +++ b/gcc/ada/gcc-interface/ada-tree.h @@ -24,14 +24,13 @@ ****************************************************************************/ /* Ada uses the lang_decl and lang_type fields to hold a tree. */ -union lang_tree_node - GTY((desc ("0"), - chain_next ("(union lang_tree_node *)TREE_CHAIN (&%h.t)"))) +union GTY((desc ("0"), + chain_next ("(union lang_tree_node *)TREE_CHAIN (&%h.t)"))) lang_tree_node { union tree_node GTY((tag ("0"))) t; }; -struct lang_decl GTY(()) { tree t; }; -struct lang_type GTY(()) { tree t; }; +struct GTY(()) lang_decl {tree t; }; +struct GTY(()) lang_type {tree t; }; /* Define macros to get and set the tree in TYPE_ and DECL_LANG_SPECIFIC. */ #define GET_TYPE_LANG_SPECIFIC(NODE) \ diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 807b370e077..cfc9fbc3faa 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -108,8 +108,7 @@ bool type_annotate_only; /* When not optimizing, we cache the 'First, 'Last and 'Length attributes of unconstrained array IN parameters to avoid emitting a great deal of redundant instructions to recompute them each time. */ -struct parm_attr GTY (()) -{ +struct GTY (()) parm_attr { int id; /* GTY doesn't like Entity_Id. */ int dim; tree first; @@ -122,8 +121,7 @@ typedef struct parm_attr *parm_attr; DEF_VEC_P(parm_attr); DEF_VEC_ALLOC_P(parm_attr,gc); -struct language_function GTY(()) -{ +struct GTY(()) language_function { VEC(parm_attr,gc) *parm_attr_cache; }; @@ -135,7 +133,7 @@ struct language_function GTY(()) of a IF. In the case where it represents a lexical scope, we may also have a BLOCK node corresponding to it and/or cleanups. */ -struct stmt_group GTY((chain_next ("%h.previous"))) { +struct GTY((chain_next ("%h.previous"))) stmt_group { struct stmt_group *previous; /* Previous code group. */ tree stmt_list; /* List of statements for this code group. */ tree block; /* BLOCK for this code group, if any. */ @@ -152,7 +150,7 @@ static GTY((deletable)) struct stmt_group *stmt_group_free_list; ??? gnat_node should be Node_Id, but gengtype gets confused. */ -struct elab_info GTY((chain_next ("%h.next"))) { +struct GTY((chain_next ("%h.next"))) elab_info { struct elab_info *next; /* Pointer to next in chain. */ tree elab_proc; /* Elaboration procedure. */ int gnat_node; /* The N_Compilation_Unit. */ diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index b2c4399a410..088c83ad23d 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -160,8 +160,7 @@ static GTY(()) tree float_types[NUM_MACHINE_MODES]; /* For each binding contour we allocate a binding_level structure to indicate the binding depth. */ -struct gnat_binding_level GTY((chain_next ("%h.chain"))) -{ +struct GTY((chain_next ("%h.chain"))) gnat_binding_level { /* The binding level containing this one (the enclosing binding level). */ struct gnat_binding_level *chain; /* The BLOCK node for this level. */ |