procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

emit-rtl.c (gen_lowpart_common): Do not assume that SFmode and DFmode are one and two words in size.

Browse source 
* emit-rtl.c (gen_lowpart_common): Do not assume that SFmode and DFmode
	are one and two words in size.

From-SVN: r43158
This commit is contained in:
Michael Hayes 2001-06-10 22:49:40 +00:00 • committed by Michael Hayes
parent 2e24615021
commit 76321db654
2 changed files with 26 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/ChangeLog
View file

@ -1,3 +1,8 @@
2001-06-11 Michael Hayes <m.hayes@elec.canterbury.ac.nz>
* emit-rtl.c (gen_lowpart_common): Do not assume that SFmode and DFmode
are one and two words in size.
2001-06-10 Richard Henderson <rth@redhat.com>
* doc/invoke.texi (Optimization Options): Document -fpeephole2.

38
gcc/emit-rtl.c
View file

@ -772,7 +772,8 @@ gen_lowpart_common (mode, x)
else if (GET_MODE_SIZE (mode) < GET_MODE_SIZE (GET_MODE (x)))
return gen_rtx_fmt_e (GET_CODE (x), mode, XEXP (x, 0));
}
else if (GET_CODE (x) == SUBREG || GET_CODE (x) == REG || GET_CODE (x) == CONCAT)
else if (GET_CODE (x) == SUBREG || GET_CODE (x) == REG
|| GET_CODE (x) == CONCAT)
return simplify_gen_subreg (mode, x, GET_MODE (x), offset);
/* If X is a CONST_INT or a CONST_DOUBLE, extract the appropriate bits
from the low-order part of the constant. */
@ -900,17 +901,19 @@ gen_lowpart_common (mode, x)
doesn't have to deal with constructs like (subreg:DI
(const_double:SF ...)) or (subreg:DF (const_int ...)). */
else if (mode == SFmode
else if (GET_MODE_CLASS (mode) == MODE_FLOAT
&& GET_MODE_SIZE (mode) == UNITS_PER_WORD
&& GET_CODE (x) == CONST_INT)
{
{
REAL_VALUE_TYPE r;
HOST_WIDE_INT i;
i = INTVAL (x);
r = REAL_VALUE_FROM_TARGET_SINGLE (i);
return CONST_DOUBLE_FROM_REAL_VALUE (r, mode);
}
else if (mode == DFmode
}
else if (GET_MODE_CLASS (mode) == MODE_FLOAT
&& GET_MODE_SIZE (mode) == 2 * UNITS_PER_WORD
&& (GET_CODE (x) == CONST_INT || GET_CODE (x) == CONST_DOUBLE)
&& GET_MODE (x) == VOIDmode)
{
@ -949,23 +952,21 @@ gen_lowpart_common (mode, x)
int endian = WORDS_BIG_ENDIAN ? 1 : 0;
REAL_VALUE_FROM_CONST_DOUBLE (r, x);
switch (GET_MODE (x))
switch (GET_MODE_SIZE (GET_MODE (x)) / UNITS_PER_WORD)
{
case SFmode:
case 1:
REAL_VALUE_TO_TARGET_SINGLE (r, i[endian]);
i[1 - endian] = 0;
break;
case DFmode:
case 2:
REAL_VALUE_TO_TARGET_DOUBLE (r, i);
break;
#if LONG_DOUBLE_TYPE_SIZE == 96
case XFmode:
case 3:
REAL_VALUE_TO_TARGET_LONG_DOUBLE (r, i + endian);
i[3-3*endian] = 0;
#else
case TFmode:
break;
case 4:
REAL_VALUE_TO_TARGET_LONG_DOUBLE (r, i);
#endif
break;
default:
abort ();
@ -985,19 +986,22 @@ gen_lowpart_common (mode, x)
for (c = 0; c < 4; c++)
i[c] &= ~ (0L);
switch (GET_MODE (x))
switch (GET_MODE_SIZE (GET_MODE (x)) / UNITS_PER_WORD)
{
case SFmode:
case DFmode:
case 1:
case 2:
return immed_double_const (((unsigned long) i[endian]) |
(((HOST_WIDE_INT) i[1-endian]) << 32),
0, mode);
default:
case 3:
case 4:
return immed_double_const (((unsigned long) i[endian*3]) |
(((HOST_WIDE_INT) i[1+endian]) << 32),
((unsigned long) i[2-endian]) |
(((HOST_WIDE_INT) i[3-endian*3]) << 32),
mode);
default:
abort ();
}
}
#endif