diff options
| author | Nathan Froyd <froydnj@codesourcery.com> | 2010-05-18 23:45:21 +0000 |
|---|---|---|
| committer | Nathan Froyd <froydnj@gcc.gnu.org> | 2010-05-18 23:45:21 +0000 |
| commit | 3fcb9d1bfa7a0857d550553fc64c5fd243cbba00 (patch) | |
| tree | 9e6af464028821f05a03a3b6235b73e9a831f730 /gcc/ada/gcc-interface/trans.c | |
| parent | 58efc3ac598a5051d9a6ebafa7ed8bd43a0c81ac (diff) | |
| download | gcc-3fcb9d1bfa7a0857d550553fc64c5fd243cbba00.zip gcc-3fcb9d1bfa7a0857d550553fc64c5fd243cbba00.tar.gz gcc-3fcb9d1bfa7a0857d550553fc64c5fd243cbba00.tar.bz2 | |
tree.h (build_call_list): Remove.
gcc/
* tree.h (build_call_list): Remove.
* tree.c (build_call_list): Remove.
gcc/ada/
* gcc-interface/trans.c (call_to_gnu): Use build_call_vec instead of
build_call_list.
* gcc-interface/utils.c (build_function_stub): Likewise.
gcc/cp/
* tree.c (build_min_non_dep_call_vec): Update comment.
gcc/java/
* expr.c (expand_java_multianewarray): Use build_call_vec instead of
build_call_list.
(pop_arguments): Return a VEC instead of a tree. Take a method type
rather than a list of argument types.
(rewrite_rule): Change signature. of rewrite_arglist member.
(rewrite_arglist_getcaller): Update signature.
(rewrite_arglist_getclass): Likewise.
(maybe_rewrite_invocation): Update for rewrite_arglist change.
(build_known_method_ref): Take a VEC instead of a tree.
(invoke_build_dtable): Likewise.
(expand_invoke): Update calls to pop_arguments. Use build_call_vec
instead of build_call_list.
(build_jni_stub): Use build_call_vec instead of build_call_list.
* java-tree.h (maybe_rewrite_invocation): Update declaration.
(build_known_method_ref): Likewise.
(invoke_build_dtable): Likewise.
From-SVN: r159548
Diffstat (limited to 'gcc/ada/gcc-interface/trans.c')
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 68b496e..13e9d1a 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -2623,7 +2623,7 @@ call_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p, tree gnu_target) tree gnu_subprog_addr = build_unary_op (ADDR_EXPR, NULL_TREE, gnu_subprog); Entity_Id gnat_formal; Node_Id gnat_actual; - tree gnu_actual_list = NULL_TREE; + VEC(tree,gc) *gnu_actual_vec = NULL; tree gnu_name_list = NULL_TREE; tree gnu_before_list = NULL_TREE; tree gnu_after_list = NULL_TREE; @@ -2973,11 +2973,11 @@ call_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p, tree gnu_target) gnu_actual = convert (DECL_ARG_TYPE (gnu_formal), gnu_actual); } - gnu_actual_list = tree_cons (NULL_TREE, gnu_actual, gnu_actual_list); + VEC_safe_push (tree, gc, gnu_actual_vec, gnu_actual); } - gnu_call = build_call_list (TREE_TYPE (gnu_subprog_type), gnu_subprog_addr, - nreverse (gnu_actual_list)); + gnu_call = build_call_vec (TREE_TYPE (gnu_subprog_type), gnu_subprog_addr, + gnu_actual_vec); set_expr_location_from_node (gnu_call, gnat_node); /* If it's a function call, the result is the call expression unless a target |