From: James A. Morrison <phython@gcc.gnu.org>
Date: Wed, 15 Jun 2005 21:39:36 +0000 (+0000)
Subject: parse.y (function_invocation): Reverse parameter list.
X-Git-Tag: misc/cutover-cvs2svn~2385
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=aaffb27ea52bc9096ead1397018de281e00712f0;p=thirdparty%2Fgcc.git

parse.y (function_invocation): Reverse parameter list.

2005-06-15  James A. Morrison  <phython@gcc.gnu.org>

        * parse.y (function_invocation): Reverse parameter list.
        * treetree.c (tree_code_get_expression): Don't reverse parameter list.

From-SVN: r100998
---

diff --git a/gcc/treelang/ChangeLog b/gcc/treelang/ChangeLog
index 4932225cf75d..a0192f7ce18d 100644
--- a/gcc/treelang/ChangeLog
+++ b/gcc/treelang/ChangeLog
@@ -1,3 +1,8 @@
+2005-06-15  James A. Morrison  <phython@gcc.gnu.org>
+
+	* parse.y (function_invocation): Reverse parameter list.
+	* treetree.c (tree_code_get_expression): Don't reverse parameter list.
+
 2005-06-12  Rafael ?vila de Esp?ndola   <rafael.espindola@gmail.com>
 
 	* treetree.c (tree_code_get_expression): Call build_function_call_expr
diff --git a/gcc/treelang/parse.y b/gcc/treelang/parse.y
index fe1d9b162071..5e4fd74d0865 100644
--- a/gcc/treelang/parse.y
+++ b/gcc/treelang/parse.y
@@ -40,6 +40,7 @@ the GCC compiler.  */
 #include "coretypes.h"
 #include "tm.h"
 #include "timevar.h"
+#include "tree.h"
 
 #include "treelang.h"
 #include "treetree.h"
@@ -675,7 +676,8 @@ NAME LEFT_PARENTHESIS expressions_with_commas_opt RIGHT_PARENTHESIS {
     }
   type = tree_code_get_type (NUMERIC_TYPE (prod));
   prod->tp.pro.code = tree_code_get_expression (EXP_FUNCTION_INVOCATION, type,
-                                                proto->tp.pro.code, parms,
+                                                proto->tp.pro.code,
+						nreverse (parms),
                                                 NULL, tok->tp.tok.location);
   $$ = prod;
 }
diff --git a/gcc/treelang/treetree.c b/gcc/treelang/treetree.c
index 90e1679b829f..7ee707ff943b 100644
--- a/gcc/treelang/treetree.c
+++ b/gcc/treelang/treetree.c
@@ -698,12 +698,9 @@ tree_code_get_expression (unsigned int exp_type,
 
     case EXP_FUNCTION_INVOCATION:
       gcc_assert (op1);
-      {
-        TREE_USED (op1) = 1;
-        gcc_assert(TREE_TYPE (TREE_TYPE (op1)) == type);
-        tree arglist = nreverse(op2);
-        ret1 = build_function_call_expr(op1, arglist);
-      }
+      gcc_assert(TREE_TYPE (TREE_TYPE (op1)) == type);
+      TREE_USED (op1) = 1;
+      ret1 = build_function_call_expr(op1, op2);
       break;
 
     default: