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

/*
 * Written by Charles M. Hannum, Apr 9, 1995
 * Public domain.
 */

#include <machine/asm.h>

ENTRY(fpsetsticky)
	subl $28,%esp

	fnstenv (%esp)
	movl 4(%esp),%eax
	movl %eax,%edx

	andl $63,%eax

	subl %eax,%edx
	movl 32(%esp),%ecx
	andl $63,%ecx
	addl %ecx,%edx
	movl %edx,4(%esp)
	fldenv (%esp)

	addl $28,%esp
	ret
Add fpset{mask,round,sticky}(). 1995-04-10 00:33:13 +04:00			`/*`
			`* Written by Charles M. Hannum, Apr 9, 1995`
			`* Public domain.`
			`*/`

			`#include <machine/asm.h>`

			`ENTRY(fpsetsticky)`
Oops; need to use fnstenv/fldenv for this. 1995-04-10 01:00:57 +04:00			`subl $28,%esp`
Add fpset{mask,round,sticky}(). 1995-04-10 00:33:13 +04:00
Oops; need to use fnstenv/fldenv for this. 1995-04-10 01:00:57 +04:00			`fnstenv (%esp)`
			`movl 4(%esp),%eax`
Add fpset{mask,round,sticky}(). 1995-04-10 00:33:13 +04:00			`movl %eax,%edx`

			`andl $63,%eax`

Reverse sense of exception bits. 1995-04-10 01:55:20 +04:00			`subl %eax,%edx`
Oops; need to use fnstenv/fldenv for this. 1995-04-10 01:00:57 +04:00			`movl 32(%esp),%ecx`
Add fpset{mask,round,sticky}(). 1995-04-10 00:33:13 +04:00			`andl $63,%ecx`
Reverse sense of exception bits. 1995-04-10 01:55:20 +04:00			`addl %ecx,%edx`
Oops; need to use fnstenv/fldenv for this. 1995-04-10 01:00:57 +04:00			`movl %edx,4(%esp)`
			`fldenv (%esp)`
Add fpset{mask,round,sticky}(). 1995-04-10 00:33:13 +04:00
Oops; need to use fnstenv/fldenv for this. 1995-04-10 01:00:57 +04:00			`addl $28,%esp`
Add fpset{mask,round,sticky}(). 1995-04-10 00:33:13 +04:00			`ret`