#ifndef FENV_PRIVATE_H

#define FENV_PRIVATE_H 1

#include <fenv.h>

static __always_inline void

libc_feholdexcept (fenv_t *e)

{

  fenv_t etmp;

  __fenv_stfsr(etmp);

  *(e) = etmp;

  etmp = etmp & ~((0x1f << 23) | FE_ALL_EXCEPT);

  __fenv_ldfsr(etmp);

}

static __always_inline void

libc_fesetround (int r)

{

  fenv_t etmp;

  __fenv_stfsr(etmp);

  etmp = (etmp & ~__FE_ROUND_MASK) | (r);

  __fenv_ldfsr(etmp);

}

static __always_inline void

libc_feholdexcept_setround (fenv_t *e, int r)

{

  fenv_t etmp;

  __fenv_stfsr(etmp);

  *(e) = etmp;

  etmp = etmp & ~((0x1f << 23) | FE_ALL_EXCEPT);

  etmp = (etmp & ~__FE_ROUND_MASK) | (r);

  __fenv_ldfsr(etmp);

}

static __always_inline int

libc_fetestexcept (int e)

{

  fenv_t etmp;

  __fenv_stfsr(etmp);

  return etmp & (e) & FE_ALL_EXCEPT;

}

static __always_inline void

libc_fesetenv (fenv_t *e)

{

  __fenv_ldfsr(*e);

}

static __always_inline int

libc_feupdateenv_test (fenv_t *e, int ex)

{

  fenv_t etmp;

  __fenv_stfsr(etmp);

  etmp &= FE_ALL_EXCEPT;

  __fenv_ldfsr(*e);

  __feraiseexcept (etmp);

  return etmp & ex;

}

static __always_inline void

libc_feupdateenv (fenv_t *e)

{

  libc_feupdateenv_test (e, 0);

}

static __always_inline void

libc_feholdsetround (fenv_t *e, int r)

{

  fenv_t etmp;

  __fenv_stfsr(etmp);

  *(e) = etmp;

  etmp = (etmp & ~__FE_ROUND_MASK) | (r);

  __fenv_ldfsr(etmp);

}

static __always_inline void

libc_feresetround (fenv_t *e)

{

  fenv_t etmp;

  __fenv_stfsr(etmp);

  etmp = (etmp & ~__FE_ROUND_MASK) | (*e & __FE_ROUND_MASK);

  __fenv_ldfsr(etmp);

}

#define libc_feholdexceptf		libc_feholdexcept

#define libc_fesetroundf		libc_fesetround

#define libc_feholdexcept_setroundf	libc_feholdexcept_setround

#define libc_fetestexceptf		libc_fetestexcept

#define libc_fesetenvf			libc_fesetenv

#define libc_feupdateenv_testf		libc_feupdateenv_test

#define libc_feupdateenvf		libc_feupdateenv

#define libc_feholdsetroundf		libc_feholdsetround

#define libc_feresetroundf		libc_feresetround

#define libc_feholdexcept		libc_feholdexcept

#define libc_fesetround			libc_fesetround

#define libc_feholdexcept_setround	libc_feholdexcept_setround

#define libc_fetestexcept		libc_fetestexcept

#define libc_fesetenv			libc_fesetenv

#define libc_feupdateenv_test		libc_feupdateenv_test

#define libc_feupdateenv		libc_feupdateenv

#define libc_feholdsetround		libc_feholdsetround

#define libc_feresetround		libc_feresetround

#define libc_feholdexceptl		libc_feholdexcept

#define libc_fesetroundl		libc_fesetround

#define libc_feholdexcept_setroundl	libc_feholdexcept_setround

#define libc_fetestexceptl		libc_fetestexcept

#define libc_fesetenvl			libc_fesetenv

#define libc_feupdateenv_testl		libc_feupdateenv_test

#define libc_feupdateenvl		libc_feupdateenv

#define libc_feholdsetroundl		libc_feholdsetround

#define libc_feresetroundl		libc_feresetround

/* We have support for rounding mode context.  */

#define HAVE_RM_CTX 1

static __always_inline void

libc_feholdexcept_setround_sparc_ctx (struct rm_ctx *ctx, int round)

{

  fenv_t new;

  __fenv_stfsr(ctx->env);

  new = ctx->env & ~((0x1f << 23) | FE_ALL_EXCEPT);

  new = (new & ~__FE_ROUND_MASK) | round;

  if (__glibc_unlikely (new != ctx->env))

    {

      __fenv_ldfsr(new);

      ctx->updated_status = true;

    }

  else

    ctx->updated_status = false;

}

static __always_inline void

libc_fesetenv_sparc_ctx (struct rm_ctx *ctx)

{

  libc_fesetenv(&ctx->env);

}

static __always_inline void

libc_feupdateenv_sparc_ctx (struct rm_ctx *ctx)

{

  if (__glibc_unlikely (ctx->updated_status))

    libc_feupdateenv_test (&ctx->env, 0);

}

static __always_inline void

libc_feholdsetround_sparc_ctx (struct rm_ctx *ctx, int round)

{

  fenv_t new;

  __fenv_stfsr(ctx->env);

  new = (ctx->env & ~__FE_ROUND_MASK) | round;

  if (__glibc_unlikely (new != ctx->env))

    {

      __fenv_ldfsr(new);

      ctx->updated_status = true;

    }

  else

    ctx->updated_status = false;

}

#define libc_feholdexcept_setround_ctx   libc_feholdexcept_setround_sparc_ctx

#define libc_feholdexcept_setroundf_ctx  libc_feholdexcept_setround_sparc_ctx

#define libc_feholdexcept_setroundl_ctx  libc_feholdexcept_setround_sparc_ctx

#define libc_fesetenv_ctx                libc_fesetenv_sparc_ctx

#define libc_fesetenvf_ctx               libc_fesetenv_sparc_ctx

#define libc_fesetenvl_ctx               libc_fesetenv_sparc_ctx

#define libc_feupdateenv_ctx             libc_feupdateenv_sparc_ctx

#define libc_feupdateenvf_ctx            libc_feupdateenv_sparc_ctx

#define libc_feupdateenvl_ctx            libc_feupdateenv_sparc_ctx

#define libc_feresetround_ctx            libc_feupdateenv_sparc_ctx

#define libc_feresetroundf_ctx           libc_feupdateenv_sparc_ctx

#define libc_feresetroundl_ctx           libc_feupdateenv_sparc_ctx

#define libc_feholdsetround_ctx          libc_feholdsetround_sparc_ctx

#define libc_feholdsetroundf_ctx         libc_feholdsetround_sparc_ctx

#define libc_feholdsetroundl_ctx         libc_feholdsetround_sparc_ctx

#endif /* FENV_PRIVATE_H */