NetBSD/lib/libc/arch/i386/gen/fpgetround.S

/*	$NetBSD: fpgetround.S,v 1.5 2002/01/13 21:45:43 thorpej Exp $	*/

/*
 * Written by J.T. Conklin, Apr 4, 1995
 * Public domain.
 */

#include <machine/asm.h>

#ifdef WEAK_ALIAS
WEAK_ALIAS(fpgetround, _fpgetround)
ENTRY(_fpgetround)
#else
ENTRY(fpgetround)
#endif
	subl $4,%esp
	fnstcw (%esp)
	movl (%esp),%eax
	rorl $10,%eax
	andl $3,%eax
	addl $4,%esp
	ret
Add internal names for fp{get,set}{mask,round,sticky}(), and externally-visible weak aliases for the internal names. 2002-01-14 00:45:39 +03:00			`/* $NetBSD: fpgetround.S,v 1.5 2002/01/13 21:45:43 thorpej Exp $ */`
RCS Id Police. 1998-01-09 06:45:03 +03:00
Added flt_rounds, fpget{round,mask,sticky}. 1995-04-07 18:57:16 +04:00			`/*`
			`* Written by J.T. Conklin, Apr 4, 1995`
			`* Public domain.`
			`*/`

			`#include <machine/asm.h>`

Add internal names for fp{get,set}{mask,round,sticky}(), and externally-visible weak aliases for the internal names. 2002-01-14 00:45:39 +03:00			`#ifdef WEAK_ALIAS`
			`WEAK_ALIAS(fpgetround, _fpgetround)`
			`ENTRY(_fpgetround)`
			`#else`
Added flt_rounds, fpget{round,mask,sticky}. 1995-04-07 18:57:16 +04:00			`ENTRY(fpgetround)`
Add internal names for fp{get,set}{mask,round,sticky}(), and externally-visible weak aliases for the internal names. 2002-01-14 00:45:39 +03:00			`#endif`
Added flt_rounds, fpget{round,mask,sticky}. 1995-04-07 18:57:16 +04:00			`subl $4,%esp`
			`fnstcw (%esp)`
Another optimization. 1995-04-09 23:31:33 +04:00			`movl (%esp),%eax`
Add fpset{mask,round,sticky}(). 1995-04-10 00:33:13 +04:00			`rorl $10,%eax`
Added flt_rounds, fpget{round,mask,sticky}. 1995-04-07 18:57:16 +04:00			`andl $3,%eax`
			`addl $4,%esp`
			`ret`