2005-06-12 Rafael ?vila de Esp?ndola <rafael.espindola@gmail.com>

         * treetree.c (tree_code_get_expression): Call build_function_call_expr
	to build function calls.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@100876 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/treelang/ChangeLog b/gcc/treelang/ChangeLog
index b0d3f00..4932225 100644 (file)
--- a/gcc/treelang/ChangeLog
+++ b/gcc/treelang/ChangeLog
@@ -1,3 +1,8 @@
+2005-06-12  Rafael ?vila de Esp?ndola   <rafael.espindola@gmail.com>
+
+       * treetree.c (tree_code_get_expression): Call build_function_call_expr
+       to build function calls.
+
 2005-05-31  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 
        * 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 (file)
--- 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;