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

 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

gcc/treelang/ChangeLog

+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

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;