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

rtlanal.c (rtx_unstable_p): Use CONSTANT_P.

Browse source 
* rtlanal.c (rtx_unstable_p): Use CONSTANT_P.
	(rtx_unstable_p, rtx_varies_p): Process vectors.

From-SVN: r35762
This commit is contained in:
John Wehle 2000-08-17 17:20:10 +00:00 • committed by John Wehle
parent d13b34e98a
commit 9c82ac6bea
2 changed files with 30 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/ChangeLog
View file

@ -1,3 +1,8 @@
Thu Aug 17 13:20:32 EDT 2000 John Wehle (john@feith.com)
* rtlanal.c (rtx_unstable_p): Use CONSTANT_P.
(rtx_unstable_p, rtx_varies_p): Process vectors.
2000-08-16 Niibe Yutaka <gniibe@m17n.org>, Kaz Kojima <kkojima@rr.iij4u.or.jp>
* config/sh/lib1funcs.asm (GLOBAL): Define. Use for all

30
gcc/rtlanal.c
View file

@ -58,7 +58,7 @@ rtx_unstable_p (x)
if (code == QUEUED)
return 1;
if (code == CONST || code == CONST_INT)
if (CONSTANT_P (x))
return 0;
if (code == REG)
@ -70,8 +70,18 @@ rtx_unstable_p (x)
fmt = GET_RTX_FORMAT (code);
for (i = GET_RTX_LENGTH (code) - 1; i >= 0; i--)
if (fmt[i] == 'e')
if (rtx_unstable_p (XEXP (x, i)))
return 1;
{
if (rtx_unstable_p (XEXP (x, i)))
return 1;
}
else if (fmt[i] == 'E')
{
int j;
for (j = 0; j < XVECLEN (x, i); j++)
if (rtx_unstable_p (XVECEXP (x, i, j)))
return 1;
}
return 0;
}
@ -121,8 +131,18 @@ rtx_varies_p (x)
fmt = GET_RTX_FORMAT (code);
for (i = GET_RTX_LENGTH (code) - 1; i >= 0; i--)
if (fmt[i] == 'e')
if (rtx_varies_p (XEXP (x, i)))
return 1;
{
if (rtx_varies_p (XEXP (x, i)))
return 1;
}
else if (fmt[i] == 'E')
{
int j;
for (j = 0; j < XVECLEN (x, i); j++)
if (rtx_varies_p (XVECEXP (x, i, j)))
return 1;
}
return 0;
}