From 6c32445bf59d1484a5b6a3aa0d99916ede70b4b1 Mon Sep 17 00:00:00 2001 From: Nathan Froyd Date: Wed, 4 May 2011 13:44:48 +0000 Subject: 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 --- gcc/tree.h | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'gcc/tree.h') diff --git a/gcc/tree.h b/gcc/tree.h index 9b4c830..5034b58 100644 --- a/gcc/tree.h +++ b/gcc/tree.h @@ -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); -- cgit v1.1