11da177e4SLinus Torvalds /*
21da177e4SLinus Torvalds
31da177e4SLinus Torvalds fp_trig.c: floating-point math routines for the Linux-m68k
41da177e4SLinus Torvalds floating point emulator.
51da177e4SLinus Torvalds
61da177e4SLinus Torvalds Copyright (c) 1998-1999 David Huggins-Daines / Roman Zippel.
71da177e4SLinus Torvalds
81da177e4SLinus Torvalds I hereby give permission, free of charge, to copy, modify, and
91da177e4SLinus Torvalds redistribute this software, in source or binary form, provided that
101da177e4SLinus Torvalds the above copyright notice and the following disclaimer are included
111da177e4SLinus Torvalds in all such copies.
121da177e4SLinus Torvalds
131da177e4SLinus Torvalds THIS SOFTWARE IS PROVIDED "AS IS", WITH ABSOLUTELY NO WARRANTY, REAL
141da177e4SLinus Torvalds OR IMPLIED.
151da177e4SLinus Torvalds
161da177e4SLinus Torvalds */
171da177e4SLinus Torvalds
181da177e4SLinus Torvalds #include "fp_emu.h"
191da177e4SLinus Torvalds #include "fp_trig.h"
201da177e4SLinus Torvalds
211da177e4SLinus Torvalds struct fp_ext *
fp_fsin(struct fp_ext * dest,struct fp_ext * src)221da177e4SLinus Torvalds fp_fsin(struct fp_ext *dest, struct fp_ext *src)
231da177e4SLinus Torvalds {
241da177e4SLinus Torvalds uprint("fsin\n");
251da177e4SLinus Torvalds
261da177e4SLinus Torvalds fp_monadic_check(dest, src);
271da177e4SLinus Torvalds
281da177e4SLinus Torvalds return dest;
291da177e4SLinus Torvalds }
301da177e4SLinus Torvalds
311da177e4SLinus Torvalds struct fp_ext *
fp_fcos(struct fp_ext * dest,struct fp_ext * src)321da177e4SLinus Torvalds fp_fcos(struct fp_ext *dest, struct fp_ext *src)
331da177e4SLinus Torvalds {
341da177e4SLinus Torvalds uprint("fcos\n");
351da177e4SLinus Torvalds
361da177e4SLinus Torvalds fp_monadic_check(dest, src);
371da177e4SLinus Torvalds
381da177e4SLinus Torvalds return dest;
391da177e4SLinus Torvalds }
401da177e4SLinus Torvalds
411da177e4SLinus Torvalds struct fp_ext *
fp_ftan(struct fp_ext * dest,struct fp_ext * src)421da177e4SLinus Torvalds fp_ftan(struct fp_ext *dest, struct fp_ext *src)
431da177e4SLinus Torvalds {
441da177e4SLinus Torvalds uprint("ftan\n");
451da177e4SLinus Torvalds
461da177e4SLinus Torvalds fp_monadic_check(dest, src);
471da177e4SLinus Torvalds
481da177e4SLinus Torvalds return dest;
491da177e4SLinus Torvalds }
501da177e4SLinus Torvalds
511da177e4SLinus Torvalds struct fp_ext *
fp_fasin(struct fp_ext * dest,struct fp_ext * src)521da177e4SLinus Torvalds fp_fasin(struct fp_ext *dest, struct fp_ext *src)
531da177e4SLinus Torvalds {
541da177e4SLinus Torvalds uprint("fasin\n");
551da177e4SLinus Torvalds
561da177e4SLinus Torvalds fp_monadic_check(dest, src);
571da177e4SLinus Torvalds
581da177e4SLinus Torvalds return dest;
591da177e4SLinus Torvalds }
601da177e4SLinus Torvalds
611da177e4SLinus Torvalds struct fp_ext *
fp_facos(struct fp_ext * dest,struct fp_ext * src)621da177e4SLinus Torvalds fp_facos(struct fp_ext *dest, struct fp_ext *src)
631da177e4SLinus Torvalds {
641da177e4SLinus Torvalds uprint("facos\n");
651da177e4SLinus Torvalds
661da177e4SLinus Torvalds fp_monadic_check(dest, src);
671da177e4SLinus Torvalds
681da177e4SLinus Torvalds return dest;
691da177e4SLinus Torvalds }
701da177e4SLinus Torvalds
711da177e4SLinus Torvalds struct fp_ext *
fp_fatan(struct fp_ext * dest,struct fp_ext * src)721da177e4SLinus Torvalds fp_fatan(struct fp_ext *dest, struct fp_ext *src)
731da177e4SLinus Torvalds {
741da177e4SLinus Torvalds uprint("fatan\n");
751da177e4SLinus Torvalds
761da177e4SLinus Torvalds fp_monadic_check(dest, src);
771da177e4SLinus Torvalds
781da177e4SLinus Torvalds return dest;
791da177e4SLinus Torvalds }
801da177e4SLinus Torvalds
811da177e4SLinus Torvalds struct fp_ext *
fp_fsinh(struct fp_ext * dest,struct fp_ext * src)821da177e4SLinus Torvalds fp_fsinh(struct fp_ext *dest, struct fp_ext *src)
831da177e4SLinus Torvalds {
841da177e4SLinus Torvalds uprint("fsinh\n");
851da177e4SLinus Torvalds
861da177e4SLinus Torvalds fp_monadic_check(dest, src);
871da177e4SLinus Torvalds
881da177e4SLinus Torvalds return dest;
891da177e4SLinus Torvalds }
901da177e4SLinus Torvalds
911da177e4SLinus Torvalds struct fp_ext *
fp_fcosh(struct fp_ext * dest,struct fp_ext * src)921da177e4SLinus Torvalds fp_fcosh(struct fp_ext *dest, struct fp_ext *src)
931da177e4SLinus Torvalds {
941da177e4SLinus Torvalds uprint("fcosh\n");
951da177e4SLinus Torvalds
961da177e4SLinus Torvalds fp_monadic_check(dest, src);
971da177e4SLinus Torvalds
981da177e4SLinus Torvalds return dest;
991da177e4SLinus Torvalds }
1001da177e4SLinus Torvalds
1011da177e4SLinus Torvalds struct fp_ext *
fp_ftanh(struct fp_ext * dest,struct fp_ext * src)1021da177e4SLinus Torvalds fp_ftanh(struct fp_ext *dest, struct fp_ext *src)
1031da177e4SLinus Torvalds {
1041da177e4SLinus Torvalds uprint("ftanh\n");
1051da177e4SLinus Torvalds
1061da177e4SLinus Torvalds fp_monadic_check(dest, src);
1071da177e4SLinus Torvalds
1081da177e4SLinus Torvalds return dest;
1091da177e4SLinus Torvalds }
1101da177e4SLinus Torvalds
1111da177e4SLinus Torvalds struct fp_ext *
fp_fatanh(struct fp_ext * dest,struct fp_ext * src)1121da177e4SLinus Torvalds fp_fatanh(struct fp_ext *dest, struct fp_ext *src)
1131da177e4SLinus Torvalds {
1141da177e4SLinus Torvalds uprint("fatanh\n");
1151da177e4SLinus Torvalds
1161da177e4SLinus Torvalds fp_monadic_check(dest, src);
1171da177e4SLinus Torvalds
1181da177e4SLinus Torvalds return dest;
1191da177e4SLinus Torvalds }
1201da177e4SLinus Torvalds
1211da177e4SLinus Torvalds struct fp_ext *
fp_fsincos0(struct fp_ext * dest,struct fp_ext * src)1221da177e4SLinus Torvalds fp_fsincos0(struct fp_ext *dest, struct fp_ext *src)
1231da177e4SLinus Torvalds {
1241da177e4SLinus Torvalds uprint("fsincos0\n");
1251da177e4SLinus Torvalds
1261da177e4SLinus Torvalds return dest;
1271da177e4SLinus Torvalds }
1281da177e4SLinus Torvalds
1291da177e4SLinus Torvalds struct fp_ext *
fp_fsincos1(struct fp_ext * dest,struct fp_ext * src)1301da177e4SLinus Torvalds fp_fsincos1(struct fp_ext *dest, struct fp_ext *src)
1311da177e4SLinus Torvalds {
1321da177e4SLinus Torvalds uprint("fsincos1\n");
1331da177e4SLinus Torvalds
1341da177e4SLinus Torvalds return dest;
1351da177e4SLinus Torvalds }
1361da177e4SLinus Torvalds
1371da177e4SLinus Torvalds struct fp_ext *
fp_fsincos2(struct fp_ext * dest,struct fp_ext * src)1381da177e4SLinus Torvalds fp_fsincos2(struct fp_ext *dest, struct fp_ext *src)
1391da177e4SLinus Torvalds {
1401da177e4SLinus Torvalds uprint("fsincos2\n");
1411da177e4SLinus Torvalds
1421da177e4SLinus Torvalds return dest;
1431da177e4SLinus Torvalds }
1441da177e4SLinus Torvalds
1451da177e4SLinus Torvalds struct fp_ext *
fp_fsincos3(struct fp_ext * dest,struct fp_ext * src)1461da177e4SLinus Torvalds fp_fsincos3(struct fp_ext *dest, struct fp_ext *src)
1471da177e4SLinus Torvalds {
1481da177e4SLinus Torvalds uprint("fsincos3\n");
1491da177e4SLinus Torvalds
1501da177e4SLinus Torvalds return dest;
1511da177e4SLinus Torvalds }
1521da177e4SLinus Torvalds
1531da177e4SLinus Torvalds struct fp_ext *
fp_fsincos4(struct fp_ext * dest,struct fp_ext * src)1541da177e4SLinus Torvalds fp_fsincos4(struct fp_ext *dest, struct fp_ext *src)
1551da177e4SLinus Torvalds {
1561da177e4SLinus Torvalds uprint("fsincos4\n");
1571da177e4SLinus Torvalds
1581da177e4SLinus Torvalds return dest;
1591da177e4SLinus Torvalds }
1601da177e4SLinus Torvalds
1611da177e4SLinus Torvalds struct fp_ext *
fp_fsincos5(struct fp_ext * dest,struct fp_ext * src)1621da177e4SLinus Torvalds fp_fsincos5(struct fp_ext *dest, struct fp_ext *src)
1631da177e4SLinus Torvalds {
1641da177e4SLinus Torvalds uprint("fsincos5\n");
1651da177e4SLinus Torvalds
1661da177e4SLinus Torvalds return dest;
1671da177e4SLinus Torvalds }
1681da177e4SLinus Torvalds
1691da177e4SLinus Torvalds struct fp_ext *
fp_fsincos6(struct fp_ext * dest,struct fp_ext * src)1701da177e4SLinus Torvalds fp_fsincos6(struct fp_ext *dest, struct fp_ext *src)
1711da177e4SLinus Torvalds {
1721da177e4SLinus Torvalds uprint("fsincos6\n");
1731da177e4SLinus Torvalds
1741da177e4SLinus Torvalds return dest;
1751da177e4SLinus Torvalds }
1761da177e4SLinus Torvalds
1771da177e4SLinus Torvalds struct fp_ext *
fp_fsincos7(struct fp_ext * dest,struct fp_ext * src)1781da177e4SLinus Torvalds fp_fsincos7(struct fp_ext *dest, struct fp_ext *src)
1791da177e4SLinus Torvalds {
1801da177e4SLinus Torvalds uprint("fsincos7\n");
1811da177e4SLinus Torvalds
1821da177e4SLinus Torvalds return dest;
1831da177e4SLinus Torvalds }
184