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

expr.c (expand_expr <COMPLEX_CST>): Handle the case of expanding a complex constant into a CONCAT target.

Browse Source 
* expr.c (expand_expr <COMPLEX_CST>): Handle the case of
	expanding a complex constant into a CONCAT target.

From-SVN: r67928
This commit is contained in:
Roger Sayle 2003-06-14 00:23:24 +00:00 committed by Roger Sayle
parent 307ecf05ae
commit 9ad58e0979
2 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ChangeLog
View File

@ -1,3 +1,8 @@
2003-06-13 Roger Sayle <roger@eyesopen.com>
* expr.c (expand_expr <COMPLEX_CST>): Handle the case of
expanding a complex constant into a CONCAT target.
2003-06-13 Zack Weinberg <zack@codesourcery.com> 2003-06-13 Zack Weinberg <zack@codesourcery.com>
* config/svr3.h (ASM_FILE_START): Don't use ASM_FILE_START_1. * config/svr3.h (ASM_FILE_START): Don't use ASM_FILE_START_1.

23
gcc/expr.c
View File

@ -6980,6 +6980,29 @@ expand_expr (exp, target, tmode, modifier)
TYPE_MODE (TREE_TYPE (exp))); TYPE_MODE (TREE_TYPE (exp)));
case COMPLEX_CST: case COMPLEX_CST:
/* Handle evaluating a complex constant in a CONCAT target. */
if (original_target && GET_CODE (original_target) == CONCAT)
{
enum machine_mode mode = TYPE_MODE (TREE_TYPE (TREE_TYPE (exp)));
rtx rtarg, itarg;
rtarg = XEXP (original_target, 0);
itarg = XEXP (original_target, 1);
/* Move the real and imaginary parts separately. */
op0 = expand_expr (TREE_REALPART (exp), rtarg, mode, 0);
op1 = expand_expr (TREE_IMAGPART (exp), itarg, mode, 0);
if (op0 != rtarg)
emit_move_insn (rtarg, op0);
if (op1 != itarg)
emit_move_insn (itarg, op1);
return original_target;
}
/* ... fall through ... */
case STRING_CST: case STRING_CST:
temp = output_constant_def (exp, 1); temp = output_constant_def (exp, 1);