From 53f3f4e3131f1c3d22954a77fa2de464de8cc3ba Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Mon, 22 Sep 2014 07:02:24 +0000 Subject: [PATCH] decl.c (gnat_to_gnu_entity): Adjust comment. * gcc-interface/decl.c (gnat_to_gnu_entity): Adjust comment. * gcc-interface/utils.c (gnat_write_global_declarations): Fix typo. From-SVN: r215445 --- gcc/ada/ChangeLog | 31 ++++++++++++++++++------------- gcc/ada/gcc-interface/decl.c | 2 +- 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 3bb099cdf51..447068ea242 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2014-09-22 Eric Botcazou + + * 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 * gcc-interface/Make-lang.in (check_acats_numbers0, @@ -355,20 +360,20 @@ 2014-08-04 Eric Botcazou - * gcc-interface/decl.c (gnat_to_gnu_entity) : Deal with - renaming discriminants in tagged types first. - * gcc-interface/trans.c (gnat_to_gnu) : 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) : Deal with + renaming discriminants in tagged types first. + * gcc-interface/trans.c (gnat_to_gnu) : 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 Olivier Hainque - * 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 @@ -2170,8 +2175,8 @@ 2014-07-31 Eric Botcazou * 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 @@ -7884,7 +7889,7 @@ * gcc-interface/misc.c (internal_error_function): Likewise. 2014-04-15 Eric Botcazou - Pierre-Marie de Rodat + Pierre-Marie de Rodat * gcc-interface/decl.c (gnat_to_gnu_entity) : Create a mere scalar constant instead of a reference for renaming of scalar literal. @@ -7945,7 +7950,7 @@ (gnat_gimplify_stmt) : Propagate loop hints. 2014-04-14 Eric Botcazou - Robert Dewar + Robert Dewar * 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 8e3db64392e..b68870d4273 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 266a942651f..79b0039bf32 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 ()) -- 2.30.2