diff options
Diffstat (limited to 'gcc/ada/gcc-interface')
| -rw-r--r-- | gcc/ada/gcc-interface/gigi.h | 3 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 14 |
2 files changed, 9 insertions, 8 deletions
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); |