alias.c (find_base_decl): Remove unreachable case '3' block.

2004-09-17  Jeffrey D. Oldham  <oldham@codesourcery.com>
	    Zack Weinberg  <zack@codesourcery.com>

	* alias.c (find_base_decl): Remove unreachable case '3' block.
	* expr.c (safe_from_p): Abort if passed a type.
	* tree-gimple.c (recalculate_side_effects): Abort if passed
	anything other than an expression.
	* tree-ssa-pre.c (phi_translate): Return expr immediately if
	is_gimple_min_invariant is true for it.  Reorder cases for clarity.
	Abort on un-handled tree classes.
	(valid_in_set): Likewise.
	* tree.c (tree_code_class_strings): New static data.

	* tree.h (enum tree_code_class): New.
	(tree_code_class_strings): Declare.
	(TREE_CODE_CLASS_STRING, EXCEPTIONAL_CLASS_P, CONSTANT_CLASS_P)
	(REFERENCE_CLASS_P, COMPARISON_CLASS_P, UNARY_CLASS_P, BINARY_CLASS_P)
	(STATEMENT_CLASS_P, EXPRESSION_CLASS_P, IS_TYPE_OR_DECL_P): New macros.
	(TYPE_P, DECL_P, IS_NON_TYPE_CODE_CLASS, IS_EXPR_CODE_CLASS)
	(checking macros, EXPR_LOCATION, SET_EXPR_LOCATION, EXPR_LOCUS): Update.

	* tree.def, c-common.def, objc/objc-tree.def: Use
	tree_code_class enumeration constants instead of code letters.

	* alias.c, builtins.c, c-common.c, c-format.c, c-lang.c, c-pragma.c
	* c-typeck.c, cgraphunit.c, convert.c, dbxout.c, dwarf2out.c
	* emit-rtl.c expr.c, fold-const.c, gimplify.c, lambda-code.c
	* langhooks.c, langhooks.h, predict.c, print-tree.c, reload1.c, stmt.c
	* tree-browser.c, tree-cfg.c, tree-chrec.c, tree-complex.c, tree-dfa.c
	* tree-dump.c, tree-eh.c, tree-gimple.c, tree-inline.c, tree-nested.c
	* tree-outof-ssa.c, tree-pretty-print.c, tree-sra.c, tree-ssa-ccp.c
	* tree-ssa-dce.c, tree-ssa-dom.c, tree-ssa-forwprop.c, tree-ssa-live.c
	* tree-ssa-loop-im.c, tree-ssa-loop-ivopts.c, tree-ssa-operands.c
	* tree-ssa-phiopt.c, tree-ssa-pre.c, tree-ssa-propagate.c
	* tree-ssa.c, tree-ssanames.c, tree-tailcall.c, tree.c, varasm.c
	* config/sol2-c.c, config/arm/arm.c, config/i386/winnt.c
	* config/pa/pa.c, config/pa/pa.h, config/sh/sh.c, objc/objc-lang.c
	Update to match.

	* LANGUAGES: Add note about change.

ada:
	* ada-tree.def: Use tree_code_class enumeration constants
	instead of code letters.
	* ada-tree.h, decl.c, misc.c, trans.c, utils.c, utils2.c:
	Update for new tree-class enumeration constants.

cp:
	* cp-tree.def: Use tree_code_class enumeration constants
	instead of code letters.
	* call.c, class.c, cp-gimplify.c, cp-lang.c, cxx-pretty-print.c
	* mangle.c, pt.c, semantics.c, tree.c, typeck.c:
	Update for new tree-class enumeration constants.

fortran:
	* f95-lang.c, trans-expr.c, trans.c: Update for new tree-class
	enumeration constants.

java:
	* java-tree.def: Use tree_code_class enumeration constants
	instead of code letters.
	* java-gimplify.c, jcf-write.c, lang.c, parse.y: Update for
	new tree-class enumeration constants.

treelang:
	* treetree.c: Update for new tree-class enumeration constants.

From-SVN: r87675

1 files changed, 21 insertions, 25 deletions

diff --git a/gcc/tree-browser.c b/gcc/tree-browser.c
index 891c761..1ac5dda 100644
--- a/gcc/tree-browser.c
+++ b/gcc/tree-browser.c
@@ -1,5 +1,5 @@
 /* Tree browser.
-   Copyright (C) 2002, 2003 Free Software Foundation, Inc.
+   Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc.
    Contributed by Sebastian Pop <s.pop@laposte.net>
 
 This file is part of GCC.
@@ -262,14 +262,14 @@ browse_tree (tree begin)
 	  break;
 
 	case TB_REFERENCE_TO_THIS:
-	  if (head && TREE_CODE_CLASS (TREE_CODE (head)) == 't')
+	  if (head && TYPE_P (head))
 	    TB_SET_HEAD (TYPE_REFERENCE_TO (head));
 	  else
 	    TB_WF;
 	  break;
 
 	case TB_POINTER_TO_THIS:
-	  if (head && TREE_CODE_CLASS (TREE_CODE (head)) == 't')
+	  if (head && TYPE_P (head))
 	    TB_SET_HEAD (TYPE_POINTER_TO (head));
 	  else
 	    TB_WF;
@@ -338,28 +338,28 @@ browse_tree (tree begin)
 	  break;
 
 	case TB_INITIAL:
-	  if (head && TREE_CODE_CLASS (TREE_CODE (head)) == 'd')
+	  if (head && DECL_P (head))
 	    TB_SET_HEAD (DECL_INITIAL (head));
 	  else
 	    TB_WF;
 	  break;
 
 	case TB_RESULT:
-	  if (head && TREE_CODE_CLASS (TREE_CODE (head)) == 'd')
+	  if (head && DECL_P (head))
 	    TB_SET_HEAD (DECL_RESULT_FLD (head));
 	  else
 	    TB_WF;
 	  break;
 
 	case TB_ARGUMENTS:
-	  if (head && TREE_CODE_CLASS (TREE_CODE (head)) == 'd')
+	  if (head && DECL_P (head))
 	    TB_SET_HEAD (DECL_ARGUMENTS (head));
 	  else
 	    TB_WF;
 	  break;
 
 	case TB_ABSTRACT_ORIGIN:
-	  if (head && TREE_CODE_CLASS (TREE_CODE (head)) == 'd')
+	  if (head && DECL_P (head))
 	    TB_SET_HEAD (DECL_ABSTRACT_ORIGIN (head));
 	  else if (head && TREE_CODE (head) == BLOCK)
 	    TB_SET_HEAD (BLOCK_ABSTRACT_ORIGIN (head));
@@ -368,18 +368,18 @@ browse_tree (tree begin)
 	  break;
 
 	case TB_ATTRIBUTES:
-	  if (head && TREE_CODE_CLASS (TREE_CODE (head)) == 'd')
+	  if (head && DECL_P (head))
 	    TB_SET_HEAD (DECL_ATTRIBUTES (head));
-	  else if (head && TREE_CODE_CLASS (TREE_CODE (head)) == 't')
+	  else if (head && TYPE_P (head))
 	    TB_SET_HEAD (TYPE_ATTRIBUTES (head));
 	  else
 	    TB_WF;
 	  break;
 
 	case TB_CONTEXT:
-	  if (head && TREE_CODE_CLASS (TREE_CODE (head)) == 'd')
+	  if (head && DECL_P (head))
 	    TB_SET_HEAD (DECL_CONTEXT (head));
-	  else if (head && TREE_CODE_CLASS (TREE_CODE (head)) == 't'
+	  else if (head && TYPE_P (head)
 		   && TYPE_CONTEXT (head))
 	    TB_SET_HEAD (TYPE_CONTEXT (head));
 	  else
@@ -401,18 +401,18 @@ browse_tree (tree begin)
           break;
 
 	case TB_UNIT_SIZE:
-	  if (head && TREE_CODE_CLASS (TREE_CODE (head)) == 'd')
+	  if (head && DECL_P (head))
 	    TB_SET_HEAD (DECL_SIZE_UNIT (head));
-	  else if (head && TREE_CODE_CLASS (TREE_CODE (head)) == 't')
+	  else if (head && TYPE_P (head))
 	    TB_SET_HEAD (TYPE_SIZE_UNIT (head));
 	  else
 	    TB_WF;
 	  break;
 
 	case TB_SIZE:
-	  if (head && TREE_CODE_CLASS (TREE_CODE (head)) == 'd')
+	  if (head && DECL_P (head))
 	    TB_SET_HEAD (DECL_SIZE (head));
-	  else if (head && TREE_CODE_CLASS (TREE_CODE (head)) == 't')
+	  else if (head && TYPE_P (head))
 	    TB_SET_HEAD (TYPE_SIZE (head));
 	  else
 	    TB_WF;
@@ -441,32 +441,28 @@ browse_tree (tree begin)
 	  break;
 
 	case TB_CHILD_0:
-	  if (head && IS_EXPR_CODE_CLASS (TREE_CODE_CLASS (TREE_CODE (head)))
-	      && TREE_OPERAND (head, 0))
+	  if (head && EXPR_P (head) && TREE_OPERAND (head, 0))
 	    TB_SET_HEAD (TREE_OPERAND (head, 0));
 	  else
 	    TB_WF;
 	  break;
 
 	case TB_CHILD_1:
-          if (head && IS_EXPR_CODE_CLASS (TREE_CODE_CLASS (TREE_CODE (head)))
-	      && TREE_OPERAND (head, 1))
+          if (head && EXPR_P (head) && TREE_OPERAND (head, 1))
 	    TB_SET_HEAD (TREE_OPERAND (head, 1));
 	  else
 	    TB_WF;
           break;
 
 	case TB_CHILD_2:
-          if (head && IS_EXPR_CODE_CLASS (TREE_CODE_CLASS (TREE_CODE (head)))
-	      && TREE_OPERAND (head, 2))
+          if (head && EXPR_P (head) && TREE_OPERAND (head, 2))
 	    TB_SET_HEAD (TREE_OPERAND (head, 2));
 	  else
 	    TB_WF;
 	  break;
 
 	case TB_CHILD_3:
-	  if (head && IS_EXPR_CODE_CLASS (TREE_CODE_CLASS (TREE_CODE (head)))
-	      && TREE_OPERAND (head, 3))
+	  if (head && EXPR_P (head) && TREE_OPERAND (head, 3))
 	    TB_SET_HEAD (TREE_OPERAND (head, 3));
 	  else
 	    TB_WF;
@@ -751,7 +747,7 @@ store_child_info (tree *tp, int *walk_subtrees ATTRIBUTE_UNUSED,
   node = *tp;
 
   /* 'node' is the parent of 'TREE_OPERAND (node, *)'.  */
-  if (TREE_CODE_CLASS (TREE_CODE (node)) == 'e')
+  if (EXPRESSION_CLASS_P (node))
     {
 
 #define STORE_CHILD(N) do {                                                \
@@ -808,7 +804,7 @@ TB_parent_eq (const void *p1, const void *p2)
   if (p1 == NULL || p2 == NULL)
     return 0;
 
-  if (TREE_CODE_CLASS(TREE_CODE(parent)) == 'e')
+  if (EXPRESSION_CLASS_P (parent))
     {
 
 #define TEST_CHILD(N) do {               \