gigi.h (enum standard_datatypes): Minor tweak.

	* gcc-interface/gigi.h (enum standard_datatypes): Minor tweak.
	(gigi): Likewise.

From-SVN: r251974

gcc/ada/ChangeLog

+2017-09-11  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* gcc-interface/gigi.h (enum standard_datatypes): Minor tweak.
+	(gigi): Likewise.
+
 2017-09-11  Yannick Moy  <moy@adacore.com>
 
 	* lib-xref-spark_specific.adb: Minor rewrite.

gcc/ada/gcc-interface/gigi.h

@@ -423,7 +423,8 @@ enum standard_datatypes
   ADT_all_others_decl,
   ADT_unhandled_others_decl,
 
-  ADT_LAST};
+  ADT_LAST
+};
 
 /* Define kind of exception information associated with raise statements.  */
 enum exception_info_kind

gcc/ada/gcc-interface/trans.c

@@ -396,26 +396,26 @@ gigi (Node_Id gnat_root,
   ptr_void_ftype = build_pointer_type (void_ftype);
 
   /* Now declare run-time functions.  */
-  ftype = build_function_type_list (ptr_type_node, sizetype, NULL_TREE);
   malloc_decl
     = create_subprog_decl (get_identifier ("__gnat_malloc"), NULL_TREE,
-			   ftype,
+			   build_function_type_list (ptr_type_node, sizetype,
+						     NULL_TREE),
 			   NULL_TREE, is_disabled, true, true, true, false,
 			   false, NULL, Empty);
   DECL_IS_MALLOC (malloc_decl) = 1;
 
-  ftype = build_function_type_list (void_type_node, ptr_type_node, NULL_TREE);
   free_decl
     = create_subprog_decl (get_identifier ("__gnat_free"), NULL_TREE,
-			   ftype,
+			   build_function_type_list (void_type_node,
+						     ptr_type_node, NULL_TREE),
 			   NULL_TREE, is_disabled, true, true, true, false,
 			   false, NULL, Empty);
 
-  ftype = build_function_type_list (ptr_type_node, ptr_type_node, sizetype,
-				    NULL_TREE);
   realloc_decl
     = create_subprog_decl (get_identifier ("__gnat_realloc"), NULL_TREE,
-			   ftype,
+			   build_function_type_list (ptr_type_node,
+						     ptr_type_node, sizetype,
+						     NULL_TREE),
 			   NULL_TREE, is_disabled, true, true, true, false,
 			   false, NULL, Empty);