xref: /netbsd/lib/libc/arch/mips/gen/fpsetsticky.c (revision bf9ec67e)
1 /*	$NetBSD: fpsetsticky.c,v 1.3 2002/01/13 21:45:46 thorpej Exp $	*/
2 
3 /*
4  * Written by J.T. Conklin, Apr 11, 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 
18 fp_except
19 fpsetsticky(sticky)
20 	fp_except sticky;
21 {
22 	fp_except old;
23 	fp_except new;
24 
25 	__asm__("cfc1 %0,$31" : "=r" (old));
26 
27 	new = old;
28 	new &= ~(0x1f << 2);
29 	new |= ((sticky & 0x1f) << 2);
30 
31 	__asm__("ctc1 %0,$31" : : "r" (new));
32 
33 	return (old >> 2) & 0x1f;
34 }
35