URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 207 |
Rev 345 |
#include <ieeefp.h>
|
#include <ieeefp.h>
|
#include <machine/registers.h>
|
#include <machine/registers.h>
|
|
|
|
|
fp_except _DEFUN(fpsetmask,(newmask),
|
fp_except _DEFUN(fpsetmask,(newmask),
|
fp_except newmask)
|
fp_except newmask)
|
|
|
{
|
{
|
fp_except oldmask;
|
fp_except oldmask;
|
v60_tkcw_type tkcw;
|
v60_tkcw_type tkcw;
|
|
|
sysv60(0, 8, &tkcw);
|
sysv60(0, 8, &tkcw);
|
oldmask = tkcw.fp_trap;
|
oldmask = tkcw.fp_trap;
|
tkcw.fp_trap = newmask;
|
tkcw.fp_trap = newmask;
|
sysv60(0, 8, &tkcw);
|
sysv60(0, 8, &tkcw);
|
return oldmask;
|
return oldmask;
|
|
|
}
|
}
|
|
|
fp_except _DEFUN_VOID(fpgetmask)
|
fp_except _DEFUN_VOID(fpgetmask)
|
{
|
{
|
v60_tkcw_type tkcw;
|
v60_tkcw_type tkcw;
|
sysv60(0, 8, &tkcw);
|
sysv60(0, 8, &tkcw);
|
return tkcw.fp_trap;
|
return tkcw.fp_trap;
|
}
|
}
|
|
|
|
|
fp_rnd _DEFUN_VOID(fpgetround)
|
fp_rnd _DEFUN_VOID(fpgetround)
|
{
|
{
|
v60_tkcw_type tkcw;
|
v60_tkcw_type tkcw;
|
sysv60(0, 8, &tkcw);
|
sysv60(0, 8, &tkcw);
|
return tkcw.fp_rounding;
|
return tkcw.fp_rounding;
|
}
|
}
|
|
|
fp_rnd _DEFUN(fpsetround,(rnd),
|
fp_rnd _DEFUN(fpsetround,(rnd),
|
fp_rnd rnd)
|
fp_rnd rnd)
|
{
|
{
|
fp_rnd oldrnd;
|
fp_rnd oldrnd;
|
v60_tkcw_type tkcw;
|
v60_tkcw_type tkcw;
|
|
|
sysv60(0, 8, &tkcw);
|
sysv60(0, 8, &tkcw);
|
oldrnd = tkcw.fp_rounding;
|
oldrnd = tkcw.fp_rounding;
|
tkcw.fp_rounding = rnd;
|
tkcw.fp_rounding = rnd;
|
sysv60(0, 8, &tkcw);
|
sysv60(0, 8, &tkcw);
|
return oldrnd;
|
return oldrnd;
|
}
|
}
|
|
|
|
|
|
|
|
|
|
|
fp_rdi _DEFUN_VOID(fpgetroundtoi)
|
fp_rdi _DEFUN_VOID(fpgetroundtoi)
|
{
|
{
|
v60_tkcw_type tkcw;
|
v60_tkcw_type tkcw;
|
sysv60(0, 8, &tkcw);
|
sysv60(0, 8, &tkcw);
|
return tkcw.integer_rounding;
|
return tkcw.integer_rounding;
|
}
|
}
|
|
|
fp_rdi _DEFUN(fpsetroundtoi,(rnd),
|
fp_rdi _DEFUN(fpsetroundtoi,(rnd),
|
fp_rdi rnd)
|
fp_rdi rnd)
|
{
|
{
|
fp_rdi oldrnd;
|
fp_rdi oldrnd;
|
v60_tkcw_type tkcw;
|
v60_tkcw_type tkcw;
|
|
|
sysv60(0, 8, &tkcw);
|
sysv60(0, 8, &tkcw);
|
oldrnd = tkcw.integer_rounding;
|
oldrnd = tkcw.integer_rounding;
|
tkcw.integer_rounding = rnd;
|
tkcw.integer_rounding = rnd;
|
sysv60(0, 8, &tkcw);
|
sysv60(0, 8, &tkcw);
|
return oldrnd;
|
return oldrnd;
|
}
|
}
|
|
|
|
|
|
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.