diff options
| -rw-r--r-- | gcc/ada/ChangeLog | 31 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/decl.c | 2 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/utils.c | 1 |
3 files changed, 19 insertions, 15 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 3bb099c..447068e 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2014-09-22 Eric Botcazou <ebotcazou@adacore.com> + + * gcc-interface/decl.c (gnat_to_gnu_entity): Adjust comment. + * gcc-interface/utils.c (gnat_write_global_declarations): Fix typo. + 2014-09-15 Jakub Jelinek <jakub@redhat.com> * gcc-interface/Make-lang.in (check_acats_numbers0, @@ -355,20 +360,20 @@ 2014-08-04 Eric Botcazou <ebotcazou@adacore.com> - * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Component>: Deal with - renaming discriminants in tagged types first. - * gcc-interface/trans.c (gnat_to_gnu) <N_Selected_Component>: Test - the underlying type of the prefix. - (Pragma_to_gnu, case Pragma_Warning): Ignore Reason => "..." - (process_freeze_entity): Reset the nodes of - all the view of a type, if any. + * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Component>: Deal with + renaming discriminants in tagged types first. + * gcc-interface/trans.c (gnat_to_gnu) <N_Selected_Component>: Test + the underlying type of the prefix. + (Pragma_to_gnu, case Pragma_Warning): Ignore Reason => "..." + (process_freeze_entity): Reset the nodes of all the view of a type, + if any. 2014-08-04 Doug Rupp <rupp@adacore.com> Olivier Hainque <hainque@adacore.com> - * gcc-interface/Makefile.in (x86 VxWorks): Add filter-out for vxworks7 + * gcc-interface/Makefile.in (x86 VxWorks): Add filter-out for vxworks7 and remove incorrect EH_MECHANISM macros. - Add sigtramp.h to EXTRA_LIBGNAT_SRCS when we add sigtramp-vxworks.o to + Add sigtramp.h to EXTRA_LIBGNAT_SRCS when we add sigtramp-vxworks.o to EXTRA_LIBGNAT_OBJS. 2014-08-04 Robert Dewar <dewar@adacore.com> @@ -2170,8 +2175,8 @@ 2014-07-31 Eric Botcazou <ebotcazou@adacore.com> * gcc-interface/utils.c (lookup_and_insert_pad_type): New function - extracted from... - (maybe_pad_type): ...here. Call it to canonicalize the pad type. + extracted from... + (maybe_pad_type): ...here. Call it to canonicalize the pad type. * gcc-interface/gigi.h: Update comment. 2014-07-31 Javier Miranda <miranda@adacore.com> @@ -7884,7 +7889,7 @@ * gcc-interface/misc.c (internal_error_function): Likewise. 2014-04-15 Eric Botcazou <ebotcazou@adacore.com> - Pierre-Marie de Rodat <derodat@adacore.com> + Pierre-Marie de Rodat <derodat@adacore.com> * gcc-interface/decl.c (gnat_to_gnu_entity) <object>: Create a mere scalar constant instead of a reference for renaming of scalar literal. @@ -7945,7 +7950,7 @@ (gnat_gimplify_stmt) <LOOP_STMT>: Propagate loop hints. 2014-04-14 Eric Botcazou <ebotcazou@adacore.com> - Robert Dewar <dewar@adacore.com> + Robert Dewar <dewar@adacore.com> * opt.ads (Suppress_Back_Annotation): Remove as unused. * fe.h (Back_Annotate_Rep_Info): Likewise. diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index 8e3db64..b68870d 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -2374,7 +2374,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) we can just use the high bound of the index type. */ else if ((Nkind (gnat_index) == N_Range && cannot_be_superflat_p (gnat_index)) - /* Bit-Packed Array Types are never superflat. */ + /* Bit-Packed Array Impl. Types are never superflat. */ || (Is_Packed_Array_Impl_Type (gnat_entity) && Is_Bit_Packed_Array (Original_Array_Type (gnat_entity)))) diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index 266a942..79b0039 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -5168,7 +5168,6 @@ gnat_write_global_declarations (void) TREE_STATIC (dummy_global) = 1; node = varpool_node::get_create (dummy_global); node->definition = 1; - node->definition = 1; node->force_output = 1; while (!types_used_by_cur_var_decl->is_empty ()) |