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

+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.

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))))

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 ())