diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2017-09-11 10:32:32 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2017-09-11 10:32:32 +0000 |
| commit | ab3dd4aba8edefd009fc719e3d1f83b93cb8bc0b (patch) | |
| tree | c3e34aa46fe7c0e7ca8ef8957c4bd9912f01bc53 /gcc/ada/gcc-interface | |
| parent | e6a096d181d64a05d686437847dbde9bb869ecc4 (diff) | |
| download | gcc-ab3dd4aba8edefd009fc719e3d1f83b93cb8bc0b.zip gcc-ab3dd4aba8edefd009fc719e3d1f83b93cb8bc0b.tar.gz gcc-ab3dd4aba8edefd009fc719e3d1f83b93cb8bc0b.tar.bz2 | |
gigi.h (enum standard_datatypes): Minor tweak.
* gcc-interface/gigi.h (enum standard_datatypes): Minor tweak.
(gigi): Likewise.
From-SVN: r251974
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); |