Go to most recent revision |
Details |
Last modification |
View Log
| RSS feed
| Rev |
Author |
Line No. |
Line |
| 1906 |
serge |
1 |
/* |
|
|
2 |
* Written by J.T. Conklin . |
|
|
3 |
* Public domain. |
|
|
4 |
* |
|
|
5 |
* Adapted for `long double' by Ulrich Drepper . |
|
|
6 |
* |
|
|
7 |
* Removed header file dependency for use in libmingwex.a by |
|
|
8 |
* Danny Smith |
|
|
9 |
*/ |
|
|
10 |
.file "tanl.S" |
|
|
11 |
.text |
|
|
12 |
.align 4 |
|
|
13 |
.globl _tanl |
|
|
14 |
.def _tanl; .scl 2; .type 32; .endef |
|
|
15 |
_tanl: |
|
|
16 |
fldt 4(%esp) |
|
|
17 |
fptan |
|
|
18 |
fnstsw %ax |
|
|
19 |
testl $0x400,%eax |
|
|
20 |
jnz 1f |
|
|
21 |
fstp %st(0) |
|
|
22 |
ret |
|
|
23 |
1: fldpi |
|
|
24 |
fadd %st(0) |
|
|
25 |
fxch %st(1) |
|
|
26 |
2: fprem1 |
|
|
27 |
fstsw %ax |
|
|
28 |
testl $0x400,%eax |
|
|
29 |
jnz 2b |
|
|
30 |
fstp %st(1) |
|
|
31 |
fptan |
|
|
32 |
fstp %st(0) |
|
|
33 |
ret |