xref: /netbsd-src/lib/libc/arch/mips/gen/fpsetsticky.c (revision 2a399c6883d870daece976daec6ffa7bb7f934ce)
1 /*	$NetBSD: fpsetsticky.c,v 1.2 1996/09/16 18:10:52 jonathan Exp $	*/
2 
3 /*
4  * Written by J.T. Conklin, Apr 11, 1995
5  * Public domain.
6  */
7 
8 #include <ieeefp.h>
9 
10 fp_except
11 fpsetsticky(sticky)
12 	fp_except sticky;
13 {
14 	fp_except old;
15 	fp_except new;
16 
17 	__asm__("cfc1 %0,$31" : "=r" (old));
18 
19 	new = old;
20 	new &= ~(0x1f << 2);
21 	new |= ((sticky & 0x1f) << 2);
22 
23 	__asm__("ctc1 %0,$31" : : "r" (new));
24 
25 	return (old >> 2) & 0x1f;
26 }
27