OSDN Git Service
(root)
/
mingw
/
mingw-org-wsl.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Streamline the build system infrastructure.
[mingw/mingw-org-wsl.git]
/
mingwrt
/
mingwex
/
math
/
tanf.S
1
/*
2
* Written by J.T. Conklin <jtc@netbsd.org>.
3
* Public domain.
4
*
5
* Removed header file dependency for use in libmingwex.a by
6
* Danny Smith <dannysmith@users.sourceforge.net>
7
*/
8
.file "tanf.S"
9
.text
10
.align 4
11
.globl _tanf
12
.def _tanf; .scl 2; .type 32; .endef
13
_tanf:
14
flds 4(%esp)
15
fptan
16
fnstsw %ax
17
testl $0x400,%eax
18
jnz 1f
19
fstp %st(0)
20
ret
21
1: fldpi
22
fadd %st(0)
23
fxch %st(1)
24
2: fprem1
25
fstsw %ax
26
testl $0x400,%eax
27
jnz 2b
28
fstp %st(1)
29
fptan
30
fstp %st(0)
31
ret