diff options
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/gigi.h | 3 | ||||
| -rw-r--r-- | 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 84608b3..bdc548d 100644 --- 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 a5084c6..4ddd0f0 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 4536a76..18bf071 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); |