From: Richard Stallman <rms@gnu.org>
Date: Thu, 4 Mar 1993 20:34:20 +0000 (+0000)
Subject: (fold): Fix error in handling REALPART_EXPR and IMAGPART_EXPR.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=a333b79fc53fa0b721a74e4444920c209296a06b;p=gcc.git

(fold): Fix error in handling REALPART_EXPR and IMAGPART_EXPR.

From-SVN: r3644
---

diff --git a/gcc/fold-const.c b/gcc/fold-const.c
index 9e2fb823775..fe9b72dd33c 100644
--- a/gcc/fold-const.c
+++ b/gcc/fold-const.c
@@ -4403,7 +4403,7 @@ fold (expr)
       return t;
 
     case REALPART_EXPR:
-      if (TREE_CODE (type) != COMPLEX_TYPE)
+      if (TREE_CODE (TREE_TYPE (arg0)) != COMPLEX_TYPE)
 	return t;
       else if (TREE_CODE (arg0) == COMPLEX_EXPR)
 	return omit_one_operand (type, TREE_OPERAND (arg0, 0),
@@ -4422,7 +4422,7 @@ fold (expr)
       return t;
 
     case IMAGPART_EXPR:
-      if (TREE_CODE (type) != COMPLEX_TYPE)
+      if (TREE_CODE (TREE_TYPE (arg0)) != COMPLEX_TYPE)
 	return convert (type, integer_zero_node);
       else if (TREE_CODE (arg0) == COMPLEX_EXPR)
 	return omit_one_operand (type, TREE_OPERAND (arg0, 1),