overby.me
this repo has no description
1/*
2 * Adapted from original written by J.T. Conklin <jtc@netbsd.org>.
3 * Public domain.
4 *
5 * by Ian Ollmann, Apple Computer 2006
6 */
7
8#include <machine/asm.h>
9#include "abi.h"
10
11
12PRIVATE_ENTRY(__tanl) //not public. Currently used by single and double precision entry points.
13ENTRY(tanl)
14 fldt FIRST_ARG_OFFSET(STACKP)
15 fptan
16 fnstsw %ax
17 andw $0x400,%ax
18 jnz 1f
19 fstp %st(0)
20 ret
21
221: fldpi
23 fadd %st(0)
24 fxch %st(1)
252: fprem1
26 fstsw %ax
27 andw $0x400,%ax
28 jnz 2b
29 fstp %st(1)
30 fptan
31 fstp %st(0)
32 ret