1/*	$NetBSD$	*/
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
11WEAK_ALIAS(fpsetsticky, _fpsetsticky)
12ENTRY(_fpsetsticky)
13#else
14ENTRY(fpsetsticky)
15#endif
16	subl $28,%esp
17
18	fnstenv (%esp)
19	movl 4(%esp),%eax
20	movl %eax,%edx
21
22	andl $63,%eax
23
24	subl %eax,%edx
25	movl 32(%esp),%ecx
26	andl $63,%ecx
27	addl %ecx,%edx
28	movl %edx,4(%esp)
29	fldenv (%esp)
30
31	addl $28,%esp
32	ret
33#ifdef WEAK_ALIAS
34END(_fpsetsticky)
35#else
36END(fpsetsticky)
37#endif
38