diff options
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); } |