1/* 2 * Written by J.T. Conklin <jtc@netbsd.org>. 3 * Public domain. 4 * 5 * Adapted for `long double' by Ulrich Drepper <drepper@cygnus.com>. 6 */ 7 8#include <machine/asm.h> 9 10RCSID("$NetBSD: $") 11 12ENTRY(__sinl) 13 fldt 4(%esp) 14 fsin 15 fnstsw %ax 16 testl $0x400,%eax 17 jnz 1f 18 ret 19 .align ALIGNARG(4) 201: fldpi 21 fadd %st(0) 22 fxch %st(1) 232: fprem1 24 fnstsw %ax 25 testl $0x400,%eax 26 jnz 2b 27 fstp %st(1) 28 fsin 29 ret 30END (__sinl) 31weak_alias (__sinl, sinl) 32