| /programs/develop/ktcc/trunk/libc.obj/source/math/tan.s |
|---|
| 0,0 → 1,16 |
| /* Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details */ |
| tan.L0: |
| .quad 0xffffffffffffffff |
| tan: |
| fldl 4(%esp) |
| fptan |
| fstsw |
| fstp %st(0) |
| sahf |
| jnp tan.L1 |
| /* fstp %st(0) - if exception, there is nothing on the stack */ |
| fldl tan.L0 |
| tan.L1: |
| ret |