/* $OpenBSD: s_tan.S,v 1.2 2005/08/02 11:17:31 espie Exp $ */ /* * Written by J.T. Conklin . * Public domain. */ #include #include "abi.h" ENTRY(tan) XMM_ONE_ARG_DOUBLE_PROLOGUE fldl ARG_DOUBLE_ONE fptan fnstsw %ax andw $0x400,%ax jnz 1f fstp %st(0) XMM_DOUBLE_EPILOGUE ret 1: fldpi fadd %st(0) fxch %st(1) 2: fprem1 fstsw %ax andw $0x400,%ax jnz 2b fstp %st(1) fptan fstp %st(0) XMM_DOUBLE_EPILOGUE ret