* parse.y (java_complete_lhs case EXPR_WITH_FILE_LOCATION): If body is
authorbothner <bothner@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 14 Jan 2001 20:46:32 +0000 (20:46 +0000)
committerbothner <bothner@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 14 Jan 2001 20:46:32 +0000 (20:46 +0000)
constant, return body without wrapper.  (Improves constant folding.)
* lex.c (build_wfl_node):  Clear TREE_TYPE from returned node.

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

gcc/java/ChangeLog
gcc/java/lex.c
gcc/java/parse.y

index 0907e73..1a00840 100644 (file)
@@ -1,3 +1,9 @@
+2001-01-14  Per Bothner  <per@bothner.com>
+
+       * parse.y (java_complete_lhs case EXPR_WITH_FILE_LOCATION): If body is
+       constant, return body without wrapper.  (Improves constant folding.)
+       * lex.c (build_wfl_node):  Clear TREE_TYPE from returned node.
+
 2001-01-13  Per Bothner  <per@bothner.com>
 
        * expr.c (expand_java_field_op):  Assigning to a final field outside
index dddb3cd..338f3d5 100644 (file)
@@ -1642,7 +1642,10 @@ static tree
 build_wfl_node (node)
      tree node;
 {
-  return build_expr_wfl (node, ctxp->filename, ctxp->elc.line, ctxp->elc.col);
+  node = build_expr_wfl (node, ctxp->filename, ctxp->elc.line, ctxp->elc.col);
+  /* Prevent java_complete_lhs from short-circuiting node (if constant). */
+  TREE_TYPE (node) = NULL_TREE;
+  return node;
 }
 #endif
 
index 873de30..74e17fe 100644 (file)
@@ -11485,9 +11485,9 @@ java_complete_lhs (node)
          EXPR_WFL_NODE (node) = body;
          TREE_SIDE_EFFECTS (node) = TREE_SIDE_EFFECTS (body);
          CAN_COMPLETE_NORMALLY (node) = CAN_COMPLETE_NORMALLY (body);
-         if (body == empty_stmt_node)
+         if (body == empty_stmt_node || TREE_CONSTANT (body))
            {
-             /* Optimization;  makes it easier to detect empty bodies. */
+             /* Makes it easier to constant fold, detect empty bodies. */
              return body;
            }
          if (body == error_mark_node)