OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Alan Modra 2004-02-19 08:00:47 +00:00 committed by Alan Modra
parent 9188db2d00
commit 196c42cd7c
2 changed files with 25 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ChangeLog
View File

@ -1,3 +1,8 @@
2004-02-19 Alan Modra <amodra@bigpond.net.au>
* function.c (assign_parms): When building decl_rtl for
SPLIT_COMPLEX_ARGS, ensure inner modes of concat match outer.
2004-02-19 Olivier Hainque <hainque@act-europe.fr>
* expr.c (is_aligning_offset): Check if we are aligning the

28
gcc/function.c
View File

@ -5231,15 +5231,27 @@ assign_parms (tree fndecl)
{
if (TREE_CODE (TREE_TYPE (parm)) == COMPLEX_TYPE)
{
rtx tmp;
rtx tmp, real, imag;
enum machine_mode inner = GET_MODE_INNER (DECL_MODE (parm));
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)));
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);
}