((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 c6ba0e1157aa7e69a2526f9aa5ddc18cc472255c..17929eced7ec380074051ae30b5ae5c01aacddea 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));