diff options
| author | Alan Modra <amodra@bigpond.net.au> | 2004-02-19 08:00:47 +0000 |
|---|---|---|
| committer | Alan Modra <amodra@gcc.gnu.org> | 2004-02-19 18:30:47 +1030 |
| commit | 196c42cd7c8847ee6ecc43af63f841034abd493d (patch) | |
| tree | 43f9837f093327787b72ce5686f6ccd74f396df6 /gcc/function.c | |
| parent | 9188db2d0021c8c715c7ce2115b77ef7650e9631 (diff) | |
| download | gcc-196c42cd7c8847ee6ecc43af63f841034abd493d.zip gcc-196c42cd7c8847ee6ecc43af63f841034abd493d.tar.gz gcc-196c42cd7c8847ee6ecc43af63f841034abd493d.tar.bz2 | |
function.c (assign_parms): When building decl_rtl for SPLIT_COMPLEX_ARGS...
* function.c (assign_parms): When building decl_rtl for
SPLIT_COMPLEX_ARGS, ensure inner modes of concat match outer.
From-SVN: r78079
Diffstat (limited to 'gcc/function.c')
| -rw-r--r-- | gcc/function.c | 30 |
1 files changed, 21 insertions, 9 deletions
diff --git a/gcc/function.c b/gcc/function.c index bbb9a51..3991ff8 100644 --- a/gcc/function.c +++ b/gcc/function.c @@ -5231,15 +5231,27 @@ assign_parms (tree fndecl) { if (TREE_CODE (TREE_TYPE (parm)) == COMPLEX_TYPE) { - rtx tmp; - - SET_DECL_RTL (parm, - gen_rtx_CONCAT (DECL_MODE (parm), - DECL_RTL (fnargs), - DECL_RTL (TREE_CHAIN (fnargs)))); - tmp = gen_rtx_CONCAT (DECL_MODE (parm), - DECL_INCOMING_RTL (fnargs), - DECL_INCOMING_RTL (TREE_CHAIN (fnargs))); + rtx tmp, real, imag; + enum machine_mode inner = GET_MODE_INNER (DECL_MODE (parm)); + + real = DECL_RTL (fnargs); + imag = DECL_RTL (TREE_CHAIN (fnargs)); + if (inner != GET_MODE (real)) + { + real = gen_lowpart_SUBREG (inner, real); + imag = gen_lowpart_SUBREG (inner, imag); + } + tmp = gen_rtx_CONCAT (DECL_MODE (parm), real, imag); + SET_DECL_RTL (parm, tmp); + + real = DECL_INCOMING_RTL (fnargs); + imag = DECL_INCOMING_RTL (TREE_CHAIN (fnargs)); + if (inner != GET_MODE (real)) + { + real = gen_lowpart_SUBREG (inner, real); + imag = gen_lowpart_SUBREG (inner, imag); + } + tmp = gen_rtx_CONCAT (DECL_MODE (parm), real, imag); set_decl_incoming_rtl (parm, tmp); fnargs = TREE_CHAIN (fnargs); } |