xref: /netbsd-src/lib/libc/arch/mips/gen/fpsetround.c (revision 2a399c6883d870daece976daec6ffa7bb7f934ce)
1 /*	$NetBSD: fpsetround.c,v 1.2 1996/09/16 18:10:51 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_rnd
11 fpsetround(rnd_dir)
12 	fp_rnd rnd_dir;
13 {
14 	fp_rnd old;
15 	fp_rnd new;
16 
17 	__asm__("cfc1 %0,$31" : "=r" (old));
18 
19 	new = old;
20 	new &= ~0x03;
21 	new |= (rnd_dir & 0x03);
22 
23 	__asm__("ctc1 %0,$31" : : "r" (new));
24 
25 	return old & 0x03;
26 }
27