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