mirror of
git://sourceware.org/git/newlib-cygwin.git
synced 2025-01-18 20:39:33 +08:00
71 lines
986 B
C
71 lines
986 B
C
#include <ieeefp.h>
|
|
#include <machine/registers.h>
|
|
|
|
|
|
fp_except fpsetmask (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 fpgetmask (void)
|
|
{
|
|
v60_tkcw_type tkcw;
|
|
sysv60(0, 8, &tkcw);
|
|
return tkcw.fp_trap;
|
|
}
|
|
|
|
|
|
fp_rnd fpgetround (void)
|
|
{
|
|
v60_tkcw_type tkcw;
|
|
sysv60(0, 8, &tkcw);
|
|
return tkcw.fp_rounding;
|
|
}
|
|
|
|
fp_rnd fpsetround (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 fpgetroundtoi (void)
|
|
{
|
|
v60_tkcw_type tkcw;
|
|
sysv60(0, 8, &tkcw);
|
|
return tkcw.integer_rounding;
|
|
}
|
|
|
|
fp_rdi fpsetroundtoi (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;
|
|
}
|
|
|
|
|
|
|