URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [newlib-1.18.0/] [newlib/] [libc/] [sys/] [sysvnecv70/] [fpx.c] - Rev 258
Go to most recent revision | Compare with Previous | Blame | View Log
#include <ieeefp.h> #include <machine/registers.h> fp_except _DEFUN(fpsetmask,(newmask), fp_except newmask) { fp_except oldmask; v60_tkcw_type tkcw; sysv60(0, 8, &tkcw); oldmask = tkcw.fp_trap; tkcw.fp_trap = newmask; sysv60(0, 8, &tkcw); return oldmask; } fp_except _DEFUN_VOID(fpgetmask) { v60_tkcw_type tkcw; sysv60(0, 8, &tkcw); return tkcw.fp_trap; } fp_rnd _DEFUN_VOID(fpgetround) { v60_tkcw_type tkcw; sysv60(0, 8, &tkcw); return tkcw.fp_rounding; } fp_rnd _DEFUN(fpsetround,(rnd), fp_rnd rnd) { fp_rnd oldrnd; v60_tkcw_type tkcw; sysv60(0, 8, &tkcw); oldrnd = tkcw.fp_rounding; tkcw.fp_rounding = rnd; sysv60(0, 8, &tkcw); return oldrnd; } fp_rdi _DEFUN_VOID(fpgetroundtoi) { v60_tkcw_type tkcw; sysv60(0, 8, &tkcw); return tkcw.integer_rounding; } fp_rdi _DEFUN(fpsetroundtoi,(rnd), fp_rdi rnd) { fp_rdi oldrnd; v60_tkcw_type tkcw; sysv60(0, 8, &tkcw); oldrnd = tkcw.integer_rounding; tkcw.integer_rounding = rnd; sysv60(0, 8, &tkcw); return oldrnd; }
Go to most recent revision | Compare with Previous | Blame | View Log