Home | History | Annotate | Line # | Download | only in gen
fpsetmask.c revision 1.5 
      1 /*	$NetBSD: fpsetmask.c,v 1.5 2011/03/06 10:32:47 martin 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.5 2011/03/06 10:32:47 martin 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(fpsetmask,_fpsetmask)
     19 #endif
     20 
     21 #ifdef EXCEPTIONS_WITH_SOFTFLOAT
     22 extern fp_except _softfloat_float_exception_mask;
     23 #endif
     24 
     25 fp_except
     26 fpsetmask(mask)
     27 	fp_except mask;
     28 {
     29 	fp_except old;
     30 	fp_except new;
     31 
     32 	__asm("st %%fsr,%0" : "=m" (*&old));
     33 
     34 	new = old;
     35 	new &= ~(0x1f << 23);
     36 	new |= ((mask & 0x1f) << 23);
     37 
     38 	__asm("ld %0,%%fsr" : : "m" (*&new));
     39 
     40 	old = (old >> 23) & 0x1f;
     41 
     42 #ifdef EXCEPTIONS_WITH_SOFTFLOAT
     43 	/* update softfloat mask as well */
     44 	old |= _softfloat_float_exception_mask;
     45 	_softfloat_float_exception_mask = mask;
     46 #endif
     47 
     48 	return old;
     49 }
     50