mirror of
https://github.com/nArnoSNES/tcc-65816.git
synced 2024-09-28 02:54:33 +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);
|
||
|
}
|