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_rnd 9 1.1 jtc fpsetround(rnd_dir) 10 1.1 jtc fp_rnd rnd_dir; 11 1.1 jtc { 12 1.1 jtc fp_rnd old; 13 1.1 jtc fp_rnd 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 &= ~0x03; 19 1.1 jtc new |= (rnd_dir & 0x03); 20 1.1 jtc 21 1.1 jtc __asm__("ctc1 %0,$31" : : "r" (new)); 22 1.1 jtc 23 1.1 jtc return old & 0x03; 24 1.1 jtc } 25