diff options
| author | Nathan Froyd <froydnj@codesourcery.com> | 2011-05-04 13:44:48 +0000 |
|---|---|---|
| committer | Nathan Froyd <froydnj@gcc.gnu.org> | 2011-05-04 13:44:48 +0000 |
| commit | 6c32445bf59d1484a5b6a3aa0d99916ede70b4b1 (patch) | |
| tree | 59050dadf44d73f3b2ea442fc54f6fb6a9c2fdf3 /gcc/tree.h | |
| parent | df09d1d51c9d0a5e8df630870b51dd96bcdc2325 (diff) | |
| download | gcc-6c32445bf59d1484a5b6a3aa0d99916ede70b4b1.zip gcc-6c32445bf59d1484a5b6a3aa0d99916ede70b4b1.tar.gz gcc-6c32445bf59d1484a5b6a3aa0d99916ede70b4b1.tar.bz2 | |
tree.h (build_function_type_array): Declare.
gcc/
* tree.h (build_function_type_array): Declare.
(build_varargs_function_type_array): Declare.
(build_function_type_vec, build_varargs_function_type_vec): Define.
* tree.c (build_function_type_array_1): New function.
(build_function_type_array): New function.
(build_varargs_function_type_array): New function.
gcc/fortran/
* trans-decl.c (build_library_function_decl_1): Call
build_function_type_vec. Adjust argument list building accordingly.
* trans-intrinsic.c (gfc_get_intrinsic_lib_fndecl): Likewise.
* trans-types.c (gfc_get_function_type): Likewise.
From-SVN: r173375
Diffstat (limited to 'gcc/tree.h')
| -rw-r--r-- | gcc/tree.h | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -4256,6 +4256,13 @@ extern tree build_function_type_list (tree, ...); extern tree build_function_type_skip_args (tree, bitmap); extern tree build_function_decl_skip_args (tree, bitmap); extern tree build_varargs_function_type_list (tree, ...); +extern tree build_function_type_array (tree, int, tree *); +extern tree build_varargs_function_type_array (tree, int, tree *); +#define build_function_type_vec(RET, V) \ + build_function_type_array (RET, VEC_length (tree, V), VEC_address (tree, V)) +#define build_varargs_function_type_vec(RET, V) \ + build_varargs_function_type_array (RET, VEC_length (tree, V), \ + VEC_address (tree, V)) extern tree build_method_type_directly (tree, tree, tree); extern tree build_method_type (tree, tree); extern tree build_offset_type (tree, tree); |