gigi.h (enum standard_datatypes): Minor tweak.

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

From-SVN: r251974

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 84608b3e5df8f6eab685c957a0f981829693b9c1..bdc548d0fc6f7f517df7f22b52286c1b9257f11c 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+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.

diff --git a/gcc/ada/gcc-interface/gigi.h b/gcc/ada/gcc-interface/gigi.h
index a5084c684151104cef2a2e16bbbfd0ee7b124657..4ddd0f0a8d2e4ff199c512326968fc2efdcd0773 100644 (file)
--- a/gcc/ada/gcc-interface/gigi.h
+++ b/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

diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c
index 4536a76e6acb76695fcc896e44d2a4309433cbe6..18bf0713b2b783c99e06a1fbe403459bc19dd067 100644 (file)
--- a/gcc/ada/gcc-interface/trans.c
+++ b/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);