mirror of
https://github.com/nArnoSNES/tcc-65816.git
synced 2024-06-13 04:29:31 +00:00
16 lines
205 B
C
16 lines
205 B
C
f (x)
|
|
unsigned x;
|
|
{
|
|
return (unsigned) (((unsigned long long) x * 0xAAAB) >> 16) >> 1;
|
|
}
|
|
|
|
main ()
|
|
{
|
|
unsigned i;
|
|
|
|
for (i = 0; i < 10000; i++)
|
|
if (f (i) != i / 3)
|
|
abort ();
|
|
exit (0);
|
|
}
|