OpenLibm/i387/s_cos.S

/*
 * Written by:
 *	J.T. Conklin (jtc@netbsd.org)
 *	Public domain.
 */

#include <i387/bsd_asm.h>
//__FBSDID("$FreeBSD: src/lib/msun/i387/s_cos.S,v 1.9 2011/01/07 16:13:12 kib Exp $")

ENTRY(cos)
	fldl	4(%esp)
	fcos
	fnstsw	%ax
	andw	$0x400,%ax
	jnz	1f
	ret	
1:	fldpi
	fadd	%st(0)
	fxch	%st(1)
2:	fprem1
	fnstsw	%ax
	andw	$0x400,%ax
	jnz	2b
	fstp	%st(1)
	fcos
	ret
END(cos)
Initialize repo. FreeBSD 8.2 msun code + some tweaks 2011-08-12 21:01:25 +02:00			`/*`
			`* Written by:`
change licenses to reflect that the "Winning Strategies, Inc." code has been placed in the public domain 2012-11-24 01:19:01 +01:00			`* J.T. Conklin (jtc@netbsd.org)`
			`* Public domain.`
Initialize repo. FreeBSD 8.2 msun code + some tweaks 2011-08-12 21:01:25 +02:00			`*/`

Allow compilation of assembly files on OSX 2012-05-25 05:14:58 +02:00			`#include <i387/bsd_asm.h>`
Comment out __FBSDID 2011-12-15 07:16:26 +01:00			`//__FBSDID("$FreeBSD: src/lib/msun/i387/s_cos.S,v 1.9 2011/01/07 16:13:12 kib Exp $")`
Initialize repo. FreeBSD 8.2 msun code + some tweaks 2011-08-12 21:01:25 +02:00
			`ENTRY(cos)`
			`fldl 4(%esp)`
			`fcos`
			`fnstsw %ax`
			`andw $0x400,%ax`
			`jnz 1f`
			`ret`
			`1: fldpi`
			`fadd %st(0)`
			`fxch %st(1)`
			`2: fprem1`
			`fnstsw %ax`
			`andw $0x400,%ax`
			`jnz 2b`
			`fstp %st(1)`
			`fcos`
			`ret`
			`END(cos)`

Allow compilation of assembly files on OSX 2012-05-25 05:14:58 +02:00