fpsetsticky.c revision 1.2 
1/*	$NetBSD: fpsetsticky.c,v 1.2 2002/01/13 21:45:51 thorpej Exp $	*/
2
3/*
4 * Written by J.T. Conklin, Apr 10, 1995
5 * Public domain.
6 */
7
8#include <sys/cdefs.h>
9
10#include "namespace.h"
11
12#include <ieeefp.h>
13
14#ifdef __weak_alias
15__weak_alias(fpsetsticky,_fpsetsticky)
16#endif
17
18fp_except
19fpsetsticky(sticky)
20	fp_except sticky;
21{
22	fp_except old;
23	fp_except new;
24
25	__asm__("st %%fsr,%0" : "=m" (*&old));
26
27	new = old;
28	new &= ~(0x1f << 5);
29	new |= ((sticky & 0x1f) << 5);
30
31	__asm__("ld %0,%%fsr" : : "m" (*&new));
32
33	return (old >> 5) & 0x1f;
34}
35