1 1.1 jtc /* 2 1.1 jtc * Written by J.T. Conklin, Apr 11, 1995 3 1.1 jtc * Public domain. 4 1.1 jtc */ 5 1.1 jtc 6 1.1 jtc #include <ieeefp.h> 7 1.1 jtc 8 1.1 jtc fp_except 9 1.1 jtc fpsetsticky(sticky) 10 1.1 jtc fp_except sticky; 11 1.1 jtc { 12 1.1 jtc fp_except old; 13 1.1 jtc fp_except new; 14 1.1 jtc 15 1.1 jtc __asm__("cfc1 %0,$31" : "=r" (old)); 16 1.1 jtc 17 1.1 jtc new = old; 18 1.1 jtc new &= ~(0x1f << 2); 19 1.1 jtc new |= ((sticky & 0x1f) << 2); 20 1.1 jtc 21 1.1 jtc __asm__("ctc1 %0,$31" : : "r" (new)); 22 1.1 jtc 23 1.1 jtc return (old >> 2) & 0x1f; 24 1.1 jtc } 25