From ab3dd4aba8edefd009fc719e3d1f83b93cb8bc0b Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Mon, 11 Sep 2017 10:32:32 +0000 Subject: [PATCH] gigi.h (enum standard_datatypes): Minor tweak. * gcc-interface/gigi.h (enum standard_datatypes): Minor tweak. (gigi): Likewise. From-SVN: r251974 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/gcc-interface/gigi.h | 3 ++- gcc/ada/gcc-interface/trans.c | 14 +++++++------- 3 files changed, 14 insertions(+), 8 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 84608b3e5df..bdc548d0fc6 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2017-09-11 Eric Botcazou + + * gcc-interface/gigi.h (enum standard_datatypes): Minor tweak. + (gigi): Likewise. + 2017-09-11 Yannick Moy * lib-xref-spark_specific.adb: Minor rewrite. diff --git a/gcc/ada/gcc-interface/gigi.h b/gcc/ada/gcc-interface/gigi.h index a5084c68415..4ddd0f0a8d2 100644 --- 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 4536a76e6ac..18bf0713b2b 100644 --- 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); -- 2.30.2