From 578fcce9dee02ac2ac2a7f76634d8befccc51ef3 Mon Sep 17 00:00:00 2001 From: froydnj Date: Wed, 19 May 2010 00:43:27 +0000 Subject: [PATCH 1/1] Revert: 2010-05-18 Nathan Froyd * tree.h (build_call_list): Remove. * tree.c (build_call_list): Remove. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@159554 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ChangeLog | 8 ++++++++ gcc/tree.c | 21 +++++++++++++++++++++ gcc/tree.h | 1 + 3 files changed, 30 insertions(+) diff --git a/gcc/ChangeLog b/gcc/ChangeLog index 727b024020d..5af3ae534b3 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,5 +1,13 @@ 2010-05-18 Nathan Froyd + Revert: + 2010-05-18 Nathan Froyd + + * tree.h (build_call_list): Remove. + * tree.c (build_call_list): Remove. + +2010-05-18 Nathan Froyd + * tree.h (build_call_list): Remove. * tree.c (build_call_list): Remove. diff --git a/gcc/tree.c b/gcc/tree.c index 9374bfa215d..76be316eef9 100644 --- a/gcc/tree.c +++ b/gcc/tree.c @@ -9486,6 +9486,27 @@ build_vl_exp_stat (enum tree_code code, int len MEM_STAT_DECL) return t; } + +/* Build a CALL_EXPR of class tcc_vl_exp with the indicated RETURN_TYPE + and FN and a null static chain slot. ARGLIST is a TREE_LIST of the + arguments. */ + +tree +build_call_list (tree return_type, tree fn, tree arglist) +{ + tree t; + int i; + + t = build_vl_exp (CALL_EXPR, list_length (arglist) + 3); + TREE_TYPE (t) = return_type; + CALL_EXPR_FN (t) = fn; + CALL_EXPR_STATIC_CHAIN (t) = NULL_TREE; + for (i = 0; arglist; arglist = TREE_CHAIN (arglist), i++) + CALL_EXPR_ARG (t, i) = TREE_VALUE (arglist); + process_call_operands (t); + return t; +} + /* Build a CALL_EXPR of class tcc_vl_exp with the indicated RETURN_TYPE and FN and a null static chain slot. NARGS is the number of call arguments which are specified as "..." arguments. */ diff --git a/gcc/tree.h b/gcc/tree.h index 0f099587c02..e2f54a3f08f 100644 --- a/gcc/tree.h +++ b/gcc/tree.h @@ -4038,6 +4038,7 @@ extern tree build_omp_clause (location_t, enum omp_clause_code); extern tree build_vl_exp_stat (enum tree_code, int MEM_STAT_DECL); #define build_vl_exp(c,n) build_vl_exp_stat (c,n MEM_STAT_INFO) +extern tree build_call_list (tree, tree, tree); extern tree build_call_nary (tree, tree, int, ...); extern tree build_call_valist (tree, tree, int, va_list); #define build_call_array(T1,T2,N,T3)\ -- 2.11.0