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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 3bb099cdf51a59cc06f1669aed2bcc07b0d23408..447068ea2420e8f49bb505fe9d7c2ea97039e5ef 100644 (file)
--- 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 8e3db64392e18aa1dafe43e6f4e08b33afe49301..b68870d4273da9a1180d706f1c3d7848c626a2c6 100644 (file)
--- 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 266a942651fd9255a7e47bac34fb57c667000906..79b0039bf3211709b1f21047b2e6b9bd10a6c9be 100644 (file)
--- 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 ())