mirror of
https://github.com/nArnoSNES/tcc-65816.git
synced 2024-05-31 22:41:28 +00:00
40 lines
731 B
C
40 lines
731 B
C
long
|
|
f (long x)
|
|
{
|
|
return x / (-0x7fffL - 1L);
|
|
}
|
|
|
|
long
|
|
r (long x)
|
|
{
|
|
return x % (-0x7fffL - 1L);
|
|
}
|
|
|
|
/* Since we have a negative divisor, this equation must hold for the
|
|
results of / and %; no specific results are guaranteed. */
|
|
long
|
|
std_eqn (long num, long denom, long quot, long rem)
|
|
{
|
|
/* For completeness, a check for "ABS (rem) < ABS (denom)" belongs here,
|
|
but causes trouble on 32-bit machines and isn't worthwhile. */
|
|
return quot * (-0x7fffL - 1L) + rem == num;
|
|
}
|
|
|
|
long nums[] =
|
|
{
|
|
-1L, 0x7fffL, -0x7fffL - 1L
|
|
};
|
|
|
|
main ()
|
|
{
|
|
int i;
|
|
|
|
for (i = 0;
|
|
i < sizeof (nums) / sizeof (nums[0]);
|
|
i++)
|
|
if (std_eqn (nums[i], -0x7fffL - 1L, f (nums[i]), r (nums[i])) == 0)
|
|
abort ();
|
|
|
|
exit (0);
|
|
}
|