diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2015-05-25 21:12:39 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2015-05-25 21:12:39 +0000 |
| commit | 1366ba411aced82547671901bf20655b40e3dded (patch) | |
| tree | cb1e11c2a5c7282a13eaa3e68c26451675e11594 /gcc/ada/gcc-interface/trans.c | |
| parent | bf44701f955b9901565dc918d039fe38e8a58099 (diff) | |
| download | gcc-1366ba411aced82547671901bf20655b40e3dded.zip gcc-1366ba411aced82547671901bf20655b40e3dded.tar.gz gcc-1366ba411aced82547671901bf20655b40e3dded.tar.bz2 | |
targtyps.c (get_float_words_be): Rename into...
* gcc-interface/targtyps.c (get_float_words_be): Rename into...
(get_target_float_words_be): ...this.
(get_words_be): Rename into...
(get_target_words_be): ...this.
(get_bytes_be): Rename into...
(get_target_bytes_be): ...this.
(get_bits_be): Rename into...
(get_target_bits_be): ...this.
* gcc-interface/gigi.h (standard_datatypes): Remove ADT_ptr_void_type.
(ptr_void_type_node): Delete.
(get_target_float_size): Likewise.
(get_target_double_size): Likewise.
(get_target_long_double_size): Likewise.
(get_float_words_be): Likewise.
(get_words_be): Likewise.
(get_bytes_be): Likewise.
(get_bits_be): Likewise.
(get_target_float_words_be): Declare.
(get_target_words_be): Likewise.
(get_target_bytes_be): Likewise.
(get_target_bits_be): Likewise.
* gcc-interface/decl.c (gnat_to_gnu_entity): Replace ptr_void_type_node
with ptr_type_node.
(intrin_return_compatible_p): Likewise.
* gcc-interface/trans.c (gigi): Likewise.
* gcc-interface/utils2.c (maybe_wrap_malloc): Likewise.
(maybe_wrap_free): Likewise.
* gcc-interface/utils.c (maybe_pad_type): Remove superfluous space.
* gcc-interface/misc.c (gnat_init): Do not set ptr_void_type_node.
From-SVN: r223656
Diffstat (limited to 'gcc/ada/gcc-interface/trans.c')
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index cb8662c..2cb8304 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -414,7 +414,7 @@ gigi (Node_Id gnat_root, ptr_void_ftype = build_pointer_type (void_ftype); /* Now declare run-time functions. */ - ftype = build_function_type_list (ptr_void_type_node, sizetype, NULL_TREE); + ftype = build_function_type_list (ptr_type_node, sizetype, NULL_TREE); /* malloc is a function declaration tree for a function to allocate memory. */ @@ -428,7 +428,7 @@ gigi (Node_Id gnat_root, free_decl = create_subprog_decl (get_identifier ("__gnat_free"), NULL_TREE, build_function_type_list (void_type_node, - ptr_void_type_node, + ptr_type_node, NULL_TREE), NULL_TREE, is_disabled, true, true, true, NULL, Empty); @@ -494,8 +494,7 @@ gigi (Node_Id gnat_root, DECL_FUNCTION_CODE (update_setjmp_buf_decl) = BUILT_IN_UPDATE_SETJMP_BUF; /* Hooks to call when entering/leaving an exception handler. */ - ftype - = build_function_type_list (void_type_node, ptr_void_type_node, NULL_TREE); + ftype = build_function_type_list (void_type_node, ptr_type_node, NULL_TREE); begin_handler_decl = create_subprog_decl (get_identifier ("__gnat_begin_handler"), NULL_TREE, @@ -576,9 +575,7 @@ gigi (Node_Id gnat_root, set_exception_parameter_decl = create_subprog_decl (get_identifier ("__gnat_set_exception_parameter"), NULL_TREE, - build_function_type_list (void_type_node, - ptr_void_type_node, - ptr_void_type_node, + build_function_type_list (void_type_node, ptr_type_node, ptr_type_node, NULL_TREE), NULL_TREE, is_disabled, true, true, true, NULL, Empty); |