diff options
| author | Nathan Froyd <froydnj@codesourcery.com> | 2010-05-19 00:43:27 +0000 |
|---|---|---|
| committer | Nathan Froyd <froydnj@gcc.gnu.org> | 2010-05-19 00:43:27 +0000 |
| commit | 39b27b3a47310b99510dd1124a75c5b7f65bb82a (patch) | |
| tree | c3444f53e82b54b8e92703c7b2c87e709e8b1952 | |
| parent | 0a9f28e7fd6862562d6cef7009f0cce180902da0 (diff) | |
| download | gcc-39b27b3a47310b99510dd1124a75c5b7f65bb82a.zip gcc-39b27b3a47310b99510dd1124a75c5b7f65bb82a.tar.gz gcc-39b27b3a47310b99510dd1124a75c5b7f65bb82a.tar.bz2 | |
Revert:
2010-05-18 Nathan Froyd <froydnj@codesourcery.com>
* tree.h (build_call_list): Remove.
* tree.c (build_call_list): Remove.
From-SVN: r159554
| -rw-r--r-- | gcc/ChangeLog | 8 | ||||
| -rw-r--r-- | gcc/tree.c | 21 | ||||
| -rw-r--r-- | gcc/tree.h | 1 |
3 files changed, 30 insertions, 0 deletions
diff --git a/gcc/ChangeLog b/gcc/ChangeLog index 727b024..5af3ae5 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,5 +1,13 @@ 2010-05-18 Nathan Froyd <froydnj@codesourcery.com> + Revert: + 2010-05-18 Nathan Froyd <froydnj@codesourcery.com> + + * tree.h (build_call_list): Remove. + * tree.c (build_call_list): Remove. + +2010-05-18 Nathan Froyd <froydnj@codesourcery.com> + * tree.h (build_call_list): Remove. * tree.c (build_call_list): Remove. @@ -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. */ @@ -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)\ |