Home | History | Annotate | Line # | Download | only in gen 
      1 /*	$NetBSD: fpsetsticky.c,v 1.6 2012/03/23 09:34:09 skrll Exp $	*/
      2 
      3 /*	$OpenBSD: fpsetsticky.c,v 1.4 2004/01/05 06:06:16 otto Exp $	*/
      4 
      5 /*
      6  * Written by Miodrag Vallat.  Public domain
      7  */
      8 
      9 #include <sys/cdefs.h>
     10 #if defined(LIBC_SCCS) && !defined(lint)
     11 __RCSID("$NetBSD: fpsetsticky.c,v 1.6 2012/03/23 09:34:09 skrll Exp $");
     12 #endif /* LIBC_SCCS and not lint */
     13 
     14 #include <sys/types.h>
     15 #include <ieeefp.h>
     16 
     17 fp_except
     18 fpsetsticky(fp_except mask)
     19 {
     20 	uint64_t fpsr;
     21 	fp_except old;
     22 
     23 	__asm volatile("fstd %%fr0,0(%1)" : "=m" (fpsr) : "r" (&fpsr) : "memory");
     24 	old = (fp_except)(fpsr >> 59) & 0x1f;
     25 	fpsr = (fpsr & 0x07ffffff00000000LL) | ((uint64_t)(mask & 0x1f) << 59);
     26 	__asm volatile("fldd 0(%0),%%fr0" : : "r" (&fpsr) : "memory");
     27 
     28 	return (old);
     29 }
     30