From: Jim Wilson <wilson@gcc.gnu.org>
Date: Mon, 28 Feb 1994 00:51:33 +0000 (-0800)
Subject: ((subreg_realpart_p): New function.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=340aa7f68ed9e212bb054a04d02a9177f9b98673;p=gcc.git

((subreg_realpart_p): New function.

(copy_rtx_and_substitute): Use subreg_realpart_p
instead of subreg_lowpart_p for CONCAT.

From-SVN: r6666
---

diff --git a/gcc/integrate.c b/gcc/integrate.c
index c6ba0e1157a..17929eced7e 100644
--- a/gcc/integrate.c
+++ b/gcc/integrate.c
@@ -2116,7 +2116,7 @@ copy_rtx_and_substitute (orig, map)
 	return gen_rtx (SUBREG, GET_MODE (orig), SUBREG_REG (copy),
 			SUBREG_WORD (orig) + SUBREG_WORD (copy));
       else if (GET_CODE (copy) == CONCAT)
-	return (subreg_lowpart_p (orig) ? XEXP (copy, 0) : XEXP (copy, 1));
+	return (subreg_realpart_p (orig) ? XEXP (copy, 0) : XEXP (copy, 1));
       else
 	return gen_rtx (SUBREG, GET_MODE (orig), copy,
 			SUBREG_WORD (orig));