NetBSD/lib/libm/arch/i387/s_cos.S

/*
 * Written by J.T. Conklin <jtc@netbsd.org>.
 * Public domain.
 */

#include <machine/asm.h>

#include "abi.h"

RCSID("$NetBSD: s_cos.S,v 1.7 2001/06/19 00:26:30 fvdl Exp $")

ENTRY(cos)
	XMM_ONE_ARG_DOUBLE_PROLOGUE
	fldl	ARG_DOUBLE_ONE
	fcos
	fnstsw	%ax
	andw	$0x400,%ax
	jnz	1f
	XMM_DOUBLE_EPILOGUE
	ret
1:	fldpi
	fadd	%st(0)
	fxch	%st(1)
2:	fprem1
	fnstsw	%ax
	andw	$0x400,%ax
	jnz	2b
	fstp	%st(1)
	fcos
	XMM_DOUBLE_EPILOGUE
	ret
i387-specific math functions. 1994-02-16 22:21:10 +03:00			`/*`
Winning Strategies has placed this code into the Public Domain 1995-04-29 02:43:31 +04:00			`* Written by J.T. Conklin <jtc@netbsd.org>.`
			`* Public domain.`
i387-specific math functions. 1994-02-16 22:21:10 +03:00			`*/`

			`#include <machine/asm.h>`

Modify the i387 code so that it can be shared between the i386 port and the x86_64 port. XXX some files should be distinct. 2001-06-19 04:26:29 +04:00			`#include "abi.h"`

			`RCSID("$NetBSD: s_cos.S,v 1.7 2001/06/19 00:26:30 fvdl Exp $")`
Added RCS ID's. ID's use new RCSID macro from <machine/asm.h>. 1994-03-12 04:30:22 +03:00
i387-specific math functions. 1994-02-16 22:21:10 +03:00			`ENTRY(cos)`
Modify the i387 code so that it can be shared between the i386 port and the x86_64 port. XXX some files should be distinct. 2001-06-19 04:26:29 +04:00			`XMM_ONE_ARG_DOUBLE_PROLOGUE`
			`fldl ARG_DOUBLE_ONE`
i387-specific math functions. 1994-02-16 22:21:10 +03:00			`fcos`
			`fnstsw %ax`
			`andw $0x400,%ax`
Optimize the common case (theta < 2^63). 1994-02-18 20:38:59 +03:00			`jnz 1f`
Modify the i387 code so that it can be shared between the i386 port and the x86_64 port. XXX some files should be distinct. 2001-06-19 04:26:29 +04:00			`XMM_DOUBLE_EPILOGUE`
More trailing white space. 1999-07-02 19:37:33 +04:00			`ret`
Optimize the common case (theta < 2^63). 1994-02-18 20:38:59 +03:00			`1: fldpi`
i387-specific math functions. 1994-02-16 22:21:10 +03:00			`fadd %st(0)`
			`fxch %st(1)`
Optimize the common case (theta < 2^63). 1994-02-18 20:38:59 +03:00			`2: fprem1`
i387-specific math functions. 1994-02-16 22:21:10 +03:00			`fnstsw %ax`
			`andw $0x400,%ax`
Optimize the common case (theta < 2^63). 1994-02-18 20:38:59 +03:00			`jnz 2b`
i387-specific math functions. 1994-02-16 22:21:10 +03:00			`fstp %st(1)`
			`fcos`
Modify the i387 code so that it can be shared between the i386 port and the x86_64 port. XXX some files should be distinct. 2001-06-19 04:26:29 +04:00			`XMM_DOUBLE_EPILOGUE`
Optimize the common case (theta < 2^63). 1994-02-18 20:38:59 +03:00			`ret`