From 196c42cd7c8847ee6ecc43af63f841034abd493d Mon Sep 17 00:00:00 2001 From: Alan Modra Date: Thu, 19 Feb 2004 08:00:47 +0000 Subject: 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 --- gcc/function.c | 30 +++++++++++++++++++++--------- 1 file changed, 21 insertions(+), 9 deletions(-) (limited to 'gcc/function.c') 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); } -- cgit v1.1