OpenCores
URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [newlib/] [newlib/] [libc/] [sys/] [sysvnecv70/] [fpx.c] - Rev 40

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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.