#ifndef __FENV_H
#define __FENV_H 1

typedef unsigned long fenv_t;
typedef unsigned long fexcept_t;

/* rounding mode used by fegetround() and fesetround() */
#define FE_TONEAREST  0x00 /* round toward nearest (round) */
#define FE_TOWARDZERO 0x10 /* round toward zero (trunc) */
#define FE_DOWNWARD   0x20 /* round toward -inf (floor) */
#define FE_UPWARD     0x30 /* round toward +inf (ceil) */

/* rounding precision used by fegetprec() and fesetprec() */
#define FE_LDBLPREC 0x00 /* long double precision */
#define FE_FLTPREC  0x40 /* float precision */
#define FE_DBLPREC  0x80 /* double precision */

extern const char __Zero_l[];
#define FE_DFL_ENV (*(const fenv_t *)(const void *)__Zero_l)

/* begin function declarations */
int feclearexcept(int);
int fegetenv(fenv_t *);
int fegetexceptflag(fexcept_t *, int);
int fegetprec(void);
int fegetround(void);
int feholdexcept(fenv_t *);
int feraiseexcept(int);
int fesetenv(const fenv_t *);
int fesetexceptflag(const fexcept_t *, int);
int fesetprec(int);
int fesetround(int);
int fetestexcept(int);
int feupdateenv(const fenv_t *);
/* end function declarations */

#ifndef __NOINLINE__
/* faster inline functions */

#if defined(__M68881) || defined(__M68882)
/* direct FPU support */

int fegetenv(__reg("a0")fenv_t *) =
        "\tinline\n"
        "\tfmove.l\tfpcr,(a0)\n"
        "\tmoveq\t#0,d0\n"
        "\teinline";
int fegetround(void) =
        "\tinline\n"
        "\tfmove.l\tfpcr,d1\n"
        "\tmoveq\t#$30,d0\n"
        "\tand.l\td1,d0\n"
        "\teinline";
int fegetprec(void) =
        "\tinline\n"
        "\tfmove.l\tfpcr,d0\n"
        "\tand.l\t#$c0,d0\n"
        "\teinline";
int feholdexcept(__reg("a0")fenv_t *) =
        "\tinline\n"
        "\tfmove.l\tfpcr,(a0)\n"
        "\tmoveq\t#0,d0\n"
        "\teinline";
int fesetenv(__reg("a0")const fenv_t *) =
        "\tinline\n"
        "\tfmove.l\t(a0),fpcr\n"
        "\tmoveq\t#0,d0\n"
        "\teinline";
int fesetround(__reg("d0")int) =
        "\tinline\n"
        "\tfmove.l\tfpcr,d1\n"
        "\tand.w\t#$ffcf,d1\n"
        "\tor.l\td0,d1\n"
        "\tfmove.l\td1,fpcr\n"
        "\tmoveq\t#0,d0\n"
        "\teinline";
int fesetprec(__reg("d0")int) =
        "\tinline\n"
        "\tfmove.l\tfpcr,d1\n"
        "\tand.w\t#$ff3f,d1\n"
        "\tor.l\td0,d1\n"
        "\tfmove.l\td1,fpcr\n"
        "\tmoveq\t#0,d0\n"
        "\teinline";

#else
/* IEEE or software floating-point */

int fegetenv(__reg("a0")fenv_t *) =
        "\tinline\n"
        "\tmoveq\t#-1,d0\n"
        "\teinline";
int fegetround(void) =
        "\tinline\n"
        "\tmoveq\t#-1,d0\n"
        "\teinline";
int fegetprec(void) =
        "\tinline\n"
        "\tmoveq\t#-1,d0\n"
        "\teinline";
int feholdexcept(__reg("a0")fenv_t *) =
        "\tinline\n"
        "\tmoveq\t#-1,d0\n"
        "\teinline";
int fesetenv(__reg("a0")const fenv_t *) =
        "\tinline\n"
        "\tmoveq\t#-1,d0\n"
        "\teinline";
int fesetround(__reg("d0")int) =
        "\tinline\n"
        "\tmoveq\t#-1,d0\n"
        "\teinline";
int fesetprec(__reg("d0")int) =
        "\tinline\n"
        "\tmoveq\t#-1,d0\n"
        "\teinline";

#endif

int feclearexcept(__reg("d0")int) =
        "\tinline\n"
        "\tmoveq\t#0,d0\n"
        "\teinline";
int fegetexceptflag(__reg("a0")fexcept_t *, __reg("d0")int) =
        "\tinline\n"
        "\tmoveq\t#-1,d0\n"
        "\teinline";
int feraiseexcept(__reg("d0")int) =
        "\tinline\n"
        "\tmoveq\t#-1,d0\n"
        "\teinline";
int fesetexceptflag(__reg("a0")const fexcept_t *, __reg("d0")int) =
        "\tinline\n"
        "\tmoveq\t#-1,d0\n"
        "\teinline";
int fetestexcept(__reg("d0")int) =
        "\tinline\n"
        "\tmoveq\t#0,d0\n"
        "\teinline";
int feupdateenv(__reg("a0")const fenv_t *) =
        "\tinline\n"
        "\tmoveq\t#-1,d0\n"
        "\teinline";

#endif /* __NOINLINE__ */

#endif /* __FENV_H */