((subreg_realpart_p): New function.

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@6666 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/integrate.c b/gcc/integrate.c
index c6ba0e1..17929ec 100644 (file)
--- 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));