1 1.8 matt /* $NetBSD: fpgetsticky.c,v 1.8 2012/03/20 16:19:56 matt Exp $ */ 2 1.2 jonathan 3 1.1 jtc /* 4 1.1 jtc * Written by J.T. Conklin, Apr 11, 1995 5 1.1 jtc * Public domain. 6 1.1 jtc */ 7 1.1 jtc 8 1.3 thorpej #include <sys/cdefs.h> 9 1.4 lukem #if defined(LIBC_SCCS) && !defined(lint) 10 1.8 matt __RCSID("$NetBSD: fpgetsticky.c,v 1.8 2012/03/20 16:19:56 matt Exp $"); 11 1.4 lukem #endif /* LIBC_SCCS and not lint */ 12 1.3 thorpej 13 1.3 thorpej #include "namespace.h" 14 1.3 thorpej 15 1.1 jtc #include <ieeefp.h> 16 1.3 thorpej 17 1.3 thorpej #ifdef __weak_alias 18 1.3 thorpej __weak_alias(fpgetsticky,_fpgetsticky) 19 1.3 thorpej #endif 20 1.1 jtc 21 1.1 jtc fp_except 22 1.6 matt fpgetsticky(void) 23 1.1 jtc { 24 1.6 matt fp_except x; 25 1.1 jtc 26 1.5 perry __asm("cfc1 %0,$31" : "=r" (x)); 27 1.8 matt return (x >> 2) & 0x1f; 28 1.1 jtc } 29