mirror of
https://github.com/nArnoSNES/tcc-65816.git
synced 2024-06-11 22:29:28 +00:00
140 lines
2.1 KiB
C
140 lines
2.1 KiB
C
#define FALSE 140
|
|
#define TRUE 13
|
|
|
|
feq (x)
|
|
long long int x;
|
|
{
|
|
if (x == 0)
|
|
return TRUE;
|
|
else
|
|
return FALSE;
|
|
}
|
|
|
|
fne (x)
|
|
long long int x;
|
|
{
|
|
if (x != 0)
|
|
return TRUE;
|
|
else
|
|
return FALSE;
|
|
}
|
|
|
|
flt (x)
|
|
long long int x;
|
|
{
|
|
if (x < 0)
|
|
return TRUE;
|
|
else
|
|
return FALSE;
|
|
}
|
|
|
|
fge (x)
|
|
long long int x;
|
|
{
|
|
if (x >= 0)
|
|
return TRUE;
|
|
else
|
|
return FALSE;
|
|
}
|
|
|
|
fgt (x)
|
|
long long int x;
|
|
{
|
|
if (x > 0)
|
|
return TRUE;
|
|
else
|
|
return FALSE;
|
|
}
|
|
|
|
fle (x)
|
|
long long int x;
|
|
{
|
|
if (x <= 0)
|
|
return TRUE;
|
|
else
|
|
return FALSE;
|
|
}
|
|
|
|
main ()
|
|
{
|
|
if (feq (0LL) != TRUE)
|
|
abort ();
|
|
if (feq (-1LL) != FALSE)
|
|
abort ();
|
|
if (feq (0x80000000LL) != FALSE)
|
|
abort ();
|
|
if (feq (0x80000001LL) != FALSE)
|
|
abort ();
|
|
if (feq (1LL) != FALSE)
|
|
abort ();
|
|
if (feq (0x7fffffffLL) != FALSE)
|
|
abort ();
|
|
|
|
if (fne (0LL) != FALSE)
|
|
abort ();
|
|
if (fne (-1LL) != TRUE)
|
|
abort ();
|
|
if (fne (0x80000000LL) != TRUE)
|
|
abort ();
|
|
if (fne (0x80000001LL) != TRUE)
|
|
abort ();
|
|
if (fne (1LL) != TRUE)
|
|
abort ();
|
|
if (fne (0x7fffffffLL) != TRUE)
|
|
abort ();
|
|
|
|
if (flt (0LL) != FALSE)
|
|
abort ();
|
|
if (flt (-1LL) != TRUE)
|
|
abort ();
|
|
if (flt (0x80000000LL) != TRUE)
|
|
abort ();
|
|
if (flt (0x80000001LL) != TRUE)
|
|
abort ();
|
|
if (flt (1LL) != FALSE)
|
|
abort ();
|
|
if (flt (0x7fffffffLL) != FALSE)
|
|
abort ();
|
|
|
|
if (fge (0LL) != TRUE)
|
|
abort ();
|
|
if (fge (-1LL) != FALSE)
|
|
abort ();
|
|
if (fge (0x80000000LL) != FALSE)
|
|
abort ();
|
|
if (fge (0x80000001LL) != FALSE)
|
|
abort ();
|
|
if (fge (1LL) != TRUE)
|
|
abort ();
|
|
if (fge (0x7fffffffLL) != TRUE)
|
|
abort ();
|
|
|
|
if (fgt (0LL) != FALSE)
|
|
abort ();
|
|
if (fgt (-1LL) != FALSE)
|
|
abort ();
|
|
if (fgt (0x80000000LL) != FALSE)
|
|
abort ();
|
|
if (fgt (0x80000001LL) != FALSE)
|
|
abort ();
|
|
if (fgt (1LL) != TRUE)
|
|
abort ();
|
|
if (fgt (0x7fffffffLL) != TRUE)
|
|
abort ();
|
|
|
|
if (fle (0LL) != TRUE)
|
|
abort ();
|
|
if (fle (-1LL) != TRUE)
|
|
abort ();
|
|
if (fle (0x80000000LL) != TRUE)
|
|
abort ();
|
|
if (fle (0x80000001LL) != TRUE)
|
|
abort ();
|
|
if (fle (1LL) != FALSE)
|
|
abort ();
|
|
if (fle (0x7fffffffLL) != FALSE)
|
|
abort ();
|
|
|
|
exit (0);
|
|
}
|