diff options
| author | wilson <wilson@138bc75d-0d04-0410-961f-82ee72b054a4> | 1994-02-28 00:51:33 +0000 |
|---|---|---|
| committer | wilson <wilson@138bc75d-0d04-0410-961f-82ee72b054a4> | 1994-02-28 00:51:33 +0000 |
| commit | 2505cc2916bd9dcfb9f8f97467e45e1484ac0694 (patch) | |
| tree | b0d57a0a1e9cec5df1087e061b452c5c872883cb /gcc/integrate.c | |
| parent | 99072c493b7c6d8876d36357fb61306ddb371283 (diff) | |
| download | gcc-2505cc2916bd9dcfb9f8f97467e45e1484ac0694.tar.gz | |
((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
Diffstat (limited to 'gcc/integrate.c')
| -rw-r--r-- | gcc/integrate.c | 2 |
1 files changed, 1 insertions, 1 deletions
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)); |