1*1da177e4SLinus Torvalds /*
2*1da177e4SLinus Torvalds
3*1da177e4SLinus Torvalds fp_trig.c: floating-point math routines for the Linux-m68k
4*1da177e4SLinus Torvalds floating point emulator.
5*1da177e4SLinus Torvalds
6*1da177e4SLinus Torvalds Copyright (c) 1998-1999 David Huggins-Daines / Roman Zippel.
7*1da177e4SLinus Torvalds
8*1da177e4SLinus Torvalds I hereby give permission, free of charge, to copy, modify, and
9*1da177e4SLinus Torvalds redistribute this software, in source or binary form, provided that
10*1da177e4SLinus Torvalds the above copyright notice and the following disclaimer are included
11*1da177e4SLinus Torvalds in all such copies.
12*1da177e4SLinus Torvalds
13*1da177e4SLinus Torvalds THIS SOFTWARE IS PROVIDED "AS IS", WITH ABSOLUTELY NO WARRANTY, REAL
14*1da177e4SLinus Torvalds OR IMPLIED.
15*1da177e4SLinus Torvalds
16*1da177e4SLinus Torvalds */
17*1da177e4SLinus Torvalds
18*1da177e4SLinus Torvalds #include "fp_emu.h"
19*1da177e4SLinus Torvalds #include "fp_trig.h"
20*1da177e4SLinus Torvalds
21*1da177e4SLinus Torvalds struct fp_ext *
fp_fsin(struct fp_ext * dest,struct fp_ext * src)22*1da177e4SLinus Torvalds fp_fsin(struct fp_ext *dest, struct fp_ext *src)
23*1da177e4SLinus Torvalds {
24*1da177e4SLinus Torvalds uprint("fsin\n");
25*1da177e4SLinus Torvalds
26*1da177e4SLinus Torvalds fp_monadic_check(dest, src);
27*1da177e4SLinus Torvalds
28*1da177e4SLinus Torvalds return dest;
29*1da177e4SLinus Torvalds }
30*1da177e4SLinus Torvalds
31*1da177e4SLinus Torvalds struct fp_ext *
fp_fcos(struct fp_ext * dest,struct fp_ext * src)32*1da177e4SLinus Torvalds fp_fcos(struct fp_ext *dest, struct fp_ext *src)
33*1da177e4SLinus Torvalds {
34*1da177e4SLinus Torvalds uprint("fcos\n");
35*1da177e4SLinus Torvalds
36*1da177e4SLinus Torvalds fp_monadic_check(dest, src);
37*1da177e4SLinus Torvalds
38*1da177e4SLinus Torvalds return dest;
39*1da177e4SLinus Torvalds }
40*1da177e4SLinus Torvalds
41*1da177e4SLinus Torvalds struct fp_ext *
fp_ftan(struct fp_ext * dest,struct fp_ext * src)42*1da177e4SLinus Torvalds fp_ftan(struct fp_ext *dest, struct fp_ext *src)
43*1da177e4SLinus Torvalds {
44*1da177e4SLinus Torvalds uprint("ftan\n");
45*1da177e4SLinus Torvalds
46*1da177e4SLinus Torvalds fp_monadic_check(dest, src);
47*1da177e4SLinus Torvalds
48*1da177e4SLinus Torvalds return dest;
49*1da177e4SLinus Torvalds }
50*1da177e4SLinus Torvalds
51*1da177e4SLinus Torvalds struct fp_ext *
fp_fasin(struct fp_ext * dest,struct fp_ext * src)52*1da177e4SLinus Torvalds fp_fasin(struct fp_ext *dest, struct fp_ext *src)
53*1da177e4SLinus Torvalds {
54*1da177e4SLinus Torvalds uprint("fasin\n");
55*1da177e4SLinus Torvalds
56*1da177e4SLinus Torvalds fp_monadic_check(dest, src);
57*1da177e4SLinus Torvalds
58*1da177e4SLinus Torvalds return dest;
59*1da177e4SLinus Torvalds }
60*1da177e4SLinus Torvalds
61*1da177e4SLinus Torvalds struct fp_ext *
fp_facos(struct fp_ext * dest,struct fp_ext * src)62*1da177e4SLinus Torvalds fp_facos(struct fp_ext *dest, struct fp_ext *src)
63*1da177e4SLinus Torvalds {
64*1da177e4SLinus Torvalds uprint("facos\n");
65*1da177e4SLinus Torvalds
66*1da177e4SLinus Torvalds fp_monadic_check(dest, src);
67*1da177e4SLinus Torvalds
68*1da177e4SLinus Torvalds return dest;
69*1da177e4SLinus Torvalds }
70*1da177e4SLinus Torvalds
71*1da177e4SLinus Torvalds struct fp_ext *
fp_fatan(struct fp_ext * dest,struct fp_ext * src)72*1da177e4SLinus Torvalds fp_fatan(struct fp_ext *dest, struct fp_ext *src)
73*1da177e4SLinus Torvalds {
74*1da177e4SLinus Torvalds uprint("fatan\n");
75*1da177e4SLinus Torvalds
76*1da177e4SLinus Torvalds fp_monadic_check(dest, src);
77*1da177e4SLinus Torvalds
78*1da177e4SLinus Torvalds return dest;
79*1da177e4SLinus Torvalds }
80*1da177e4SLinus Torvalds
81*1da177e4SLinus Torvalds struct fp_ext *
fp_fsinh(struct fp_ext * dest,struct fp_ext * src)82*1da177e4SLinus Torvalds fp_fsinh(struct fp_ext *dest, struct fp_ext *src)
83*1da177e4SLinus Torvalds {
84*1da177e4SLinus Torvalds uprint("fsinh\n");
85*1da177e4SLinus Torvalds
86*1da177e4SLinus Torvalds fp_monadic_check(dest, src);
87*1da177e4SLinus Torvalds
88*1da177e4SLinus Torvalds return dest;
89*1da177e4SLinus Torvalds }
90*1da177e4SLinus Torvalds
91*1da177e4SLinus Torvalds struct fp_ext *
fp_fcosh(struct fp_ext * dest,struct fp_ext * src)92*1da177e4SLinus Torvalds fp_fcosh(struct fp_ext *dest, struct fp_ext *src)
93*1da177e4SLinus Torvalds {
94*1da177e4SLinus Torvalds uprint("fcosh\n");
95*1da177e4SLinus Torvalds
96*1da177e4SLinus Torvalds fp_monadic_check(dest, src);
97*1da177e4SLinus Torvalds
98*1da177e4SLinus Torvalds return dest;
99*1da177e4SLinus Torvalds }
100*1da177e4SLinus Torvalds
101*1da177e4SLinus Torvalds struct fp_ext *
fp_ftanh(struct fp_ext * dest,struct fp_ext * src)102*1da177e4SLinus Torvalds fp_ftanh(struct fp_ext *dest, struct fp_ext *src)
103*1da177e4SLinus Torvalds {
104*1da177e4SLinus Torvalds uprint("ftanh\n");
105*1da177e4SLinus Torvalds
106*1da177e4SLinus Torvalds fp_monadic_check(dest, src);
107*1da177e4SLinus Torvalds
108*1da177e4SLinus Torvalds return dest;
109*1da177e4SLinus Torvalds }
110*1da177e4SLinus Torvalds
111*1da177e4SLinus Torvalds struct fp_ext *
fp_fatanh(struct fp_ext * dest,struct fp_ext * src)112*1da177e4SLinus Torvalds fp_fatanh(struct fp_ext *dest, struct fp_ext *src)
113*1da177e4SLinus Torvalds {
114*1da177e4SLinus Torvalds uprint("fatanh\n");
115*1da177e4SLinus Torvalds
116*1da177e4SLinus Torvalds fp_monadic_check(dest, src);
117*1da177e4SLinus Torvalds
118*1da177e4SLinus Torvalds return dest;
119*1da177e4SLinus Torvalds }
120*1da177e4SLinus Torvalds
121*1da177e4SLinus Torvalds struct fp_ext *
fp_fsincos0(struct fp_ext * dest,struct fp_ext * src)122*1da177e4SLinus Torvalds fp_fsincos0(struct fp_ext *dest, struct fp_ext *src)
123*1da177e4SLinus Torvalds {
124*1da177e4SLinus Torvalds uprint("fsincos0\n");
125*1da177e4SLinus Torvalds
126*1da177e4SLinus Torvalds return dest;
127*1da177e4SLinus Torvalds }
128*1da177e4SLinus Torvalds
129*1da177e4SLinus Torvalds struct fp_ext *
fp_fsincos1(struct fp_ext * dest,struct fp_ext * src)130*1da177e4SLinus Torvalds fp_fsincos1(struct fp_ext *dest, struct fp_ext *src)
131*1da177e4SLinus Torvalds {
132*1da177e4SLinus Torvalds uprint("fsincos1\n");
133*1da177e4SLinus Torvalds
134*1da177e4SLinus Torvalds return dest;
135*1da177e4SLinus Torvalds }
136*1da177e4SLinus Torvalds
137*1da177e4SLinus Torvalds struct fp_ext *
fp_fsincos2(struct fp_ext * dest,struct fp_ext * src)138*1da177e4SLinus Torvalds fp_fsincos2(struct fp_ext *dest, struct fp_ext *src)
139*1da177e4SLinus Torvalds {
140*1da177e4SLinus Torvalds uprint("fsincos2\n");
141*1da177e4SLinus Torvalds
142*1da177e4SLinus Torvalds return dest;
143*1da177e4SLinus Torvalds }
144*1da177e4SLinus Torvalds
145*1da177e4SLinus Torvalds struct fp_ext *
fp_fsincos3(struct fp_ext * dest,struct fp_ext * src)146*1da177e4SLinus Torvalds fp_fsincos3(struct fp_ext *dest, struct fp_ext *src)
147*1da177e4SLinus Torvalds {
148*1da177e4SLinus Torvalds uprint("fsincos3\n");
149*1da177e4SLinus Torvalds
150*1da177e4SLinus Torvalds return dest;
151*1da177e4SLinus Torvalds }
152*1da177e4SLinus Torvalds
153*1da177e4SLinus Torvalds struct fp_ext *
fp_fsincos4(struct fp_ext * dest,struct fp_ext * src)154*1da177e4SLinus Torvalds fp_fsincos4(struct fp_ext *dest, struct fp_ext *src)
155*1da177e4SLinus Torvalds {
156*1da177e4SLinus Torvalds uprint("fsincos4\n");
157*1da177e4SLinus Torvalds
158*1da177e4SLinus Torvalds return dest;
159*1da177e4SLinus Torvalds }
160*1da177e4SLinus Torvalds
161*1da177e4SLinus Torvalds struct fp_ext *
fp_fsincos5(struct fp_ext * dest,struct fp_ext * src)162*1da177e4SLinus Torvalds fp_fsincos5(struct fp_ext *dest, struct fp_ext *src)
163*1da177e4SLinus Torvalds {
164*1da177e4SLinus Torvalds uprint("fsincos5\n");
165*1da177e4SLinus Torvalds
166*1da177e4SLinus Torvalds return dest;
167*1da177e4SLinus Torvalds }
168*1da177e4SLinus Torvalds
169*1da177e4SLinus Torvalds struct fp_ext *
fp_fsincos6(struct fp_ext * dest,struct fp_ext * src)170*1da177e4SLinus Torvalds fp_fsincos6(struct fp_ext *dest, struct fp_ext *src)
171*1da177e4SLinus Torvalds {
172*1da177e4SLinus Torvalds uprint("fsincos6\n");
173*1da177e4SLinus Torvalds
174*1da177e4SLinus Torvalds return dest;
175*1da177e4SLinus Torvalds }
176*1da177e4SLinus Torvalds
177*1da177e4SLinus Torvalds struct fp_ext *
fp_fsincos7(struct fp_ext * dest,struct fp_ext * src)178*1da177e4SLinus Torvalds fp_fsincos7(struct fp_ext *dest, struct fp_ext *src)
179*1da177e4SLinus Torvalds {
180*1da177e4SLinus Torvalds uprint("fsincos7\n");
181*1da177e4SLinus Torvalds
182*1da177e4SLinus Torvalds return dest;
183*1da177e4SLinus Torvalds }
184