blob: a22c6eb874f9b2ac599208b99011a617bbcbb109 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
/*
* Written by J.T. Conklin, Apr 11, 1995
* Public domain.
*/
#if defined(LIBC_SCCS) && !defined(lint)
static char rcsid[] = "$OpenBSD: fpgetsticky.c,v 1.2 1996/08/19 08:16:43 tholo Exp $";
#endif /* LIBC_SCCS and not lint */
#include <ieeefp.h>
#include <machine/cpufunc.h>
#include <machine/fpu.h>
fp_except
fpgetsticky()
{
fp_except x;
fp_except ebits = FPC_IEN | FPC_OVE | FPC_IVE | FPC_DZE | FPC_UNDE;
sfsr(x);
/* Map FPC_UF to soft underflow enable */
if (x & FPC_UF)
x |= FPC_UNDE << 1;
else
x &= ~(FPC_UNDE << 1);
x >>= 1;
return x & ebits;
}
|
