xref: /src/lib/libc/arch/i386/gen/fpsetround.S

/*	$NetBSD: fpsetround.S,v 1.5.8.1 2014/08/20 00:02:10 tls Exp $	*/

/*
 * Written by Frank van der Linden at Wasabi Systems for NetBSD.
 * Public domain.
 */

#include <machine/asm.h>

/*
 * XXX set both the x87 control word
 * Applications should only set exception and round flags
 */


#ifdef WEAK_ALIAS
WEAK_ALIAS(fpsetround, _fpsetround)
ENTRY(_fpsetround)
#else
ENTRY(fpsetround)
#endif

	fnstcw	-4(%esp)
	movl	-4(%esp), %edx
	movl	%edx, %eax
	andl	$0x00000c00, %eax
	andl	$0xfffff3ff, %edx
	movl	4(%esp), %ecx
	orl	%ecx, %edx
	movl	%edx, -4(%esp)
	fldcw	-4(%esp)

	ret
#ifdef WEAK_ALIAS
END(_fpsetround)
#else
END(fpsetround)
#endif