1 /*        $NetBSD: fpsetmask.c,v 1.6 2012/03/21 00:38:34 christos Exp $         */
2 
3 /*
4  * Written by J.T. Conklin, Apr 10, 1995
5  * Public domain.
6  */
7 
8 #include <sys/cdefs.h>
9 #if defined(LIBC_SCCS) && !defined(lint)
10 __RCSID("$NetBSD: fpsetmask.c,v 1.6 2012/03/21 00:38:34 christos Exp $");
11 #endif /* LIBC_SCCS and not lint */
12 
13 #include "namespace.h"
14 
15 #include <ieeefp.h>
16 
17 #ifdef __weak_alias
__weak_alias(fpsetmask,_fpsetmask)18 __weak_alias(fpsetmask,_fpsetmask)
19 #endif
20 
21 fp_except
22 fpsetmask(fp_except mask)
23 {
24           fp_except old;
25           fp_except new;
26 
27           __asm("st %%fsr,%0" : "=m" (*&old));
28 
29           new = old;
30           new &= ~(0x1f << 23);
31           new |= ((mask & 0x1f) << 23);
32 
33           __asm("ld %0,%%fsr" : : "m" (*&new));
34 
35           return (old >> 23) & 0x1f;
36 }
37