1/* $OpenBSD: s_cos.S,v 1.5 2018/07/08 12:49:16 mortimer Exp $ */ 2/* 3 * Written by J.T. Conklin <jtc@NetBSD.org>. 4 * Public domain. 5 */ 6 7#include <machine/asm.h> 8 9#include "abi.h" 10 11ENTRY(cos) 12 RETGUARD_SETUP(cos, r11) 13 XMM_ONE_ARG_DOUBLE_PROLOGUE 14 fldl ARG_DOUBLE_ONE 15 fcos 16 fnstsw %ax 17 andw $0x400,%ax 18 jnz 1f 19 XMM_DOUBLE_EPILOGUE 20 RETGUARD_CHECK(cos, r11) 21 ret 221: fldpi 23 fadd %st(0) 24 fxch %st(1) 252: fprem1 26 fnstsw %ax 27 andw $0x400,%ax 28 jnz 2b 29 fstp %st(1) 30 fcos 31 XMM_DOUBLE_EPILOGUE 32 RETGUARD_CHECK(cos, r11) 33 ret 34END_STD(cos) 35