Home | History | Annotate | Line # | Download | only in gen
fpsetround.c revision 1.4 
      1 /*	$NetBSD: fpsetround.c,v 1.4 2005/06/12 05:21:26 lukem Exp $	*/
      2 
      3 /*
      4  * Written by J.T. Conklin, Apr 11, 1995
      5  * Public domain.
      6  */
      7 
      8 #include <sys/cdefs.h>
      9 #if defined(LIBC_SCCS) && !defined(lint)
     10 __RCSID("$NetBSD: fpsetround.c,v 1.4 2005/06/12 05:21:26 lukem Exp $");
     11 #endif /* LIBC_SCCS and not lint */
     12 
     13 #include "namespace.h"
     14 
     15 #include <ieeefp.h>
     16 
     17 #ifdef __weak_alias
     18 __weak_alias(fpsetround,_fpsetround)
     19 #endif
     20 
     21 fp_rnd
     22 fpsetround(rnd_dir)
     23 	fp_rnd rnd_dir;
     24 {
     25 	fp_rnd old;
     26 	fp_rnd new;
     27 
     28 	__asm__("cfc1 %0,$31" : "=r" (old));
     29 
     30 	new = old;
     31 	new &= ~0x03;
     32 	new |= (rnd_dir & 0x03);
     33 
     34 	__asm__("ctc1 %0,$31" : : "r" (new));
     35 
     36 	return old & 0x03;
     37 }
     38