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,
@@ -360,8 +365,8 @@
 	* 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.
+	(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/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 ())