/* * Written by J.T. Conklin, Apr 11, 1995 * Public domain. */ #include #include #include 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; }