From: Richard Stallman <rms@gnu.org>
Date: Fri, 10 Jul 1992 01:32:58 +0000 (+0000)
Subject: entered into RCS
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=0fafb45e4b8e5c4d102833d9fe39334cc35e43d7;p=gcc.git

entered into RCS

From-SVN: r1547
---

diff --git a/gcc/tree.h b/gcc/tree.h
index 72ef3f6f1fd..b853d0b388e 100644
--- 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);
 
 /* Define many boolean fields that all tree nodes have.  */