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

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

#include <machine/asm.h>

RCSID("$NetBSD: e_asin.S,v 1.5 2000/09/26 07:28:24 kleink Exp $")

/* asin = atan (x / sqrt(1 - x^2)) */
ENTRY(__ieee754_asin)
	fldl	4(%esp)			/* x */
	fld	%st(0)
	fmul	%st(0)			/* x^2 */
	fld1
	fsubp				/* 1 - x^2 */
	fsqrt				/* sqrt (1 - x^2) */
	fpatan
	ret
FPU specific math code. 1994-02-11 21:20:17 +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.`
FPU specific math code. 1994-02-11 21:20:17 +03:00			`*/`

			`#include <machine/asm.h>`

Make these idempotent as far as the FPU register stack is concerned. 2000-09-26 11:28:23 +04:00			`RCSID("$NetBSD: e_asin.S,v 1.5 2000/09/26 07:28:24 kleink Exp $")`
Added RCS ID's. ID's use new RCSID macro from <machine/asm.h>. 1994-03-12 04:30:22 +03:00
FPU specific math code. 1994-02-11 21:20:17 +03:00			`/* asin = atan (x / sqrt(1 - x^2)) */`
			`ENTRY(__ieee754_asin)`
			`fldl 4(%esp) /* x */`
Make these idempotent as far as the FPU register stack is concerned. 2000-09-26 11:28:23 +04:00			`fld %st(0)`
FPU specific math code. 1994-02-11 21:20:17 +03:00			`fmul %st(0) /* x^2 */`
			`fld1`
			`fsubp /* 1 - x^2 */`
			`fsqrt /* sqrt (1 - x^2) */`
			`fpatan`
			`ret`