fpsetmask.S revision 1.2 1 /* $NetBSD: fpsetmask.S,v 1.2 2002/01/13 21:45:51 thorpej Exp $ */
2
3 /*
4 * Written by Charles M. Hannum, Apr 9, 1995
5 * Public domain.
6 */
7
8 #include <machine/asm.h>
9
10 #ifdef WEAK_ALIAS
11 WEAK_ALIAS(fpsetmask, _fpsetmask)
12 ENTRY(_fpsetmask)
13 #else
14 ENTRY(fpsetmask)
15 #endif
16 fnstcw -4(%rsp)
17 movl -4(%rsp),%eax
18 movl %eax,%edx
19
20 notl %eax
21 andl $63,%eax
22
23 addl %eax,%edx
24 andl $63,%edi
25 subl %edi,%edx
26 movl %edx,-4(%rsp)
27 fldcw -4(%rsp)
28 ret
29