Subversion Repositories hf-risc

#include <ieeefp.h>
 
#ifdef __riscv_hard_float
static void fssr(int value)
{
  asm volatile ("fssr %0" :: "r"(value));
}
 
static int frsr()
{
  int value;
  asm volatile ("frsr %0" : "=r"(value));
  return value;
}
#endif
 
fp_except fpgetmask(void)
{
  return 0;
}
 
fp_rnd fpgetround(void)
{
#ifdef __riscv_hard_float
  int rm = frsr() >> 5;
  return rm == 0 ? FP_RN : rm == 1 ? FP_RZ : rm == 2 ? FP_RM : FP_RP;
#else
  return FP_RZ;
#endif
}
 
fp_except fpgetsticky(void)
{
#ifdef __riscv_hard_float
  return frsr() & 0x1f;
#else
  return 0;
#endif
}
 
fp_except fpsetmask(fp_except mask)
{
  return -1;
}
 
fp_rnd fpsetround(fp_rnd rnd_dir)
{
#ifdef __riscv_hard_float
  int fsr = frsr();
  int rm = fsr >> 5;
  int new_rm = rnd_dir == FP_RN ? 0 : rnd_dir == FP_RZ ? 1 : rnd_dir == FP_RM ? 2 : 3;
  fssr(new_rm << 5 | fsr & 0x1f);
  return rm == 0 ? FP_RN : rm == 1 ? FP_RZ : rm == 2 ? FP_RM : FP_RP;
#else
  return -1;
#endif
}
 
fp_except fpsetsticky(fp_except sticky)
{
#ifdef __riscv_hard_float
  int fsr = frsr();
  fssr(sticky & 0x1f | fsr & ~0x1f);
  return fsr & 0x1f;
#else
  return -1;
#endif
}