mirror of
https://github.com/nArnoSNES/tcc-65816.git
synced 2024-06-12 13:29:29 +00:00
26 lines
270 B
C
26 lines
270 B
C
long double
|
|
f (d, i)
|
|
long double d;
|
|
int i;
|
|
{
|
|
long double e;
|
|
|
|
d = -d;
|
|
e = d;
|
|
if (i == 1)
|
|
d *= 2;
|
|
d -= e * d;
|
|
d -= e * d;
|
|
d -= e * d;
|
|
d -= e * d;
|
|
d -= e * d;
|
|
return d;
|
|
}
|
|
|
|
main ()
|
|
{
|
|
if (! (int) (f (2.0L, 1)))
|
|
abort ();
|
|
exit (0);
|
|
}
|