From 75d93ef719d09edfe18b2720e5cc05b8b7ec19da Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rafael=20=C3=81vila=20de=20Esp=C3=ADndola?= Date: Mon, 13 Jun 2005 12:45:53 +0000 Subject: treetree.c (tree_code_get_expression): Call build_function_call_expr to build function calls. 2005-06-12 Rafael ?vila de Esp?ndola * treetree.c (tree_code_get_expression): Call build_function_call_expr to build function calls. From-SVN: r100876 --- gcc/treelang/ChangeLog | 5 +++++ gcc/treelang/treetree.c | 10 ++++------ 2 files changed, 9 insertions(+), 6 deletions(-) (limited to 'gcc/treelang') diff --git a/gcc/treelang/ChangeLog b/gcc/treelang/ChangeLog index b0d3f00..4932225 100644 --- a/gcc/treelang/ChangeLog +++ b/gcc/treelang/ChangeLog @@ -1,3 +1,8 @@ +2005-06-12 Rafael ?vila de Esp?ndola + + * treetree.c (tree_code_get_expression): Call build_function_call_expr + to build function calls. + 2005-05-31 Kaveh R. Ghazi * treelang/lex.l, treelang/parse.y: Don't include errors.h and diff --git a/gcc/treelang/treetree.c b/gcc/treelang/treetree.c index d0f6f77..90e1679 100644 --- a/gcc/treelang/treetree.c +++ b/gcc/treelang/treetree.c @@ -699,12 +699,10 @@ tree_code_get_expression (unsigned int exp_type, case EXP_FUNCTION_INVOCATION: gcc_assert (op1); { - tree fun_ptr; - TREE_USED (op1) = 1; - fun_ptr = fold_build1 (ADDR_EXPR, - build_pointer_type (TREE_TYPE (op1)), op1); - ret1 = fold_build3 (CALL_EXPR, type, fun_ptr, nreverse (op2), - NULL_TREE); + TREE_USED (op1) = 1; + gcc_assert(TREE_TYPE (TREE_TYPE (op1)) == type); + tree arglist = nreverse(op2); + ret1 = build_function_call_expr(op1, arglist); } break; -- cgit v1.1