entered into RCS

From-SVN: r1547

diff --git a/gcc/tree.h b/gcc/tree.h
index 72ef3f6f1fd4112826f5b6a9ab7d3676ff11bede..b853d0b388e68c5797783f124c96079b679ca28e 100644 (file)
--- a/gcc/tree.h
+++ b/gcc/tree.h
@@ -202,6 +202,16 @@ struct tree_common
         && (TYPE_MODE (TREE_TYPE (EXP))                        \
             == TYPE_MODE (TREE_TYPE (TREE_OPERAND (EXP, 0))))) \
     (EXP) = TREE_OPERAND (EXP, 0);
+
+/* Like STRIP_NOPS, but don't alter the TREE_TYPE either.  */
+
+#define STRIP_TYPE_NOPS(EXP) \
+  while ((TREE_CODE (EXP) == NOP_EXPR                          \
+         || TREE_CODE (EXP) == CONVERT_EXPR                    \
+         || TREE_CODE (EXP) == NON_LVALUE_EXPR)                \
+        && (TREE_TYPE (EXP)                                    \
+            == TREE_TYPE (TREE_OPERAND (EXP, 0))))             \
+    (EXP) = TREE_OPERAND (EXP, 0);
 \f
 /* Define many boolean fields that all tree nodes have.  */