treetree.c (tree_code_get_expression): Call build_function_call_expr to build functio...

 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.

From-SVN: r100876

diff --git a/gcc/treelang/ChangeLog b/gcc/treelang/ChangeLog
index b0d3f002fa2cbd67c0c8106d185a31a46653c4cb..4932225cf75d7dcf019c505a434b028c020ad3a1 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 d0f6f77be4dd9ce13d94de61062de66a5054eaeb..90e1679b829f90f4c579d892c242c0893414a040 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;