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

s390.c (s390_register_move_cost): Increase costs for FPR->GPR moves. 

2015-01-27  Andreas Krebbel  <Andreas.Krebbel@de.ibm.com>

	* config/s390/s390.c (s390_register_move_cost): Increase costs for
	FPR->GPR moves.

From-SVN: r220168
This commit is contained in:
Andreas Krebbel 2015-01-27 14:59:48 +00:00 committed by Andreas Krebbel
parent 94213c1020
commit f954fb25aa
2 changed files with 26 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 @@
2015-01-27 Andreas Krebbel <Andreas.Krebbel@de.ibm.com>
* config/s390/s390.c (s390_register_move_cost): Increase costs for
FPR->GPR moves.
2015-01-27 Richard Biener <rguenther@suse.de>
* tree-vrp.c (update_value_range): Intersect the range with

29
gcc/config/s390/s390.c
View File

@ -2407,16 +2407,29 @@ s390_float_const_zero_p (rtx value)
/* Implement TARGET_REGISTER_MOVE_COST. */
static int
s390_register_move_cost (machine_mode mode ATTRIBUTE_UNUSED,
s390_register_move_cost (machine_mode mode,
reg_class_t from, reg_class_t to)
{
/* On s390, copy between fprs and gprs is expensive as long as no
ldgr/lgdr can be used. */
if ((!TARGET_Z10 || GET_MODE_SIZE (mode) != 8)
&& ((reg_classes_intersect_p (from, GENERAL_REGS)
&& reg_classes_intersect_p (to, FP_REGS))
|| (reg_classes_intersect_p (from, FP_REGS)
&& reg_classes_intersect_p (to, GENERAL_REGS))))
/* On s390, copy between fprs and gprs is expensive. */
/* It becomes somewhat faster having ldgr/lgdr. */
if (TARGET_Z10 && GET_MODE_SIZE (mode) == 8)
{
/* ldgr is single cycle. */
if (reg_classes_intersect_p (from, GENERAL_REGS)
&& reg_classes_intersect_p (to, FP_REGS))
return 1;
/* lgdr needs 3 cycles. */
if (reg_classes_intersect_p (to, GENERAL_REGS)
&& reg_classes_intersect_p (from, FP_REGS))
return 3;
}
/* Otherwise copying is done via memory. */
if ((reg_classes_intersect_p (from, GENERAL_REGS)
&& reg_classes_intersect_p (to, FP_REGS))
|| (reg_classes_intersect_p (from, FP_REGS)
&& reg_classes_intersect_p (to, GENERAL_REGS)))
return 10;
return 1;