mirror of
https://github.com/nArnoSNES/tcc-65816.git
synced 2024-06-12 13:29:29 +00:00
77 lines
1021 B
C
77 lines
1021 B
C
/* PR tree-optimization/20100
|
|
Pure function being treated as const.
|
|
Author: Hans-Peter Nilsson. */
|
|
|
|
static unsigned short g = 0;
|
|
static unsigned short p = 0;
|
|
unsigned char e;
|
|
|
|
static unsigned short
|
|
next_g (void)
|
|
{
|
|
return g == e - 1 ? 0 : g + 1;
|
|
}
|
|
|
|
static unsigned short
|
|
curr_p (void)
|
|
{
|
|
return p;
|
|
}
|
|
|
|
static unsigned short
|
|
inc_g (void)
|
|
{
|
|
return g = next_g ();
|
|
}
|
|
|
|
static unsigned short
|
|
curr_g (void)
|
|
{
|
|
return g;
|
|
}
|
|
|
|
static char
|
|
ring_empty (void)
|
|
{
|
|
if (curr_p () == curr_g ())
|
|
return 1;
|
|
else
|
|
return 0;
|
|
}
|
|
|
|
char
|
|
frob (unsigned short a, unsigned short b)
|
|
{
|
|
g = a;
|
|
p = b;
|
|
inc_g ();
|
|
return ring_empty ();
|
|
}
|
|
|
|
unsigned short
|
|
get_n (void)
|
|
{
|
|
unsigned short n = 0;
|
|
unsigned short org_g;
|
|
org_g = curr_g ();
|
|
while (!ring_empty () && n < 5)
|
|
{
|
|
inc_g ();
|
|
n++;
|
|
}
|
|
|
|
return n;
|
|
}
|
|
|
|
void abort (void);
|
|
void exit (int);
|
|
int main (void)
|
|
{
|
|
e = 3;
|
|
if (frob (0, 2) != 0 || g != 1 || p != 2 || e != 3
|
|
|| get_n () != 1 /*
|
|
|| g != 2 || p != 2 */)
|
|
abort ();
|
|
exit (0);
|
|
}
|