57 lines
682 B
C
57 lines
682 B
C
#include <fenv.h>
|
|
|
|
/* Dummy functions for archs lacking fenv implementation */
|
|
|
|
int feclearexcept(int mask)
|
|
{
|
|
return 0;
|
|
}
|
|
|
|
int feraiseexcept(int mask)
|
|
{
|
|
return 0;
|
|
}
|
|
|
|
int fetestexcept(int mask)
|
|
{
|
|
return 0;
|
|
}
|
|
|
|
int fegetround(void)
|
|
{
|
|
return FE_TONEAREST;
|
|
}
|
|
|
|
int __fesetround(int r)
|
|
{
|
|
return 0;
|
|
}
|
|
|
|
int fegetenv(fenv_t *envp)
|
|
{
|
|
return 0;
|
|
}
|
|
|
|
int fesetenv(const fenv_t *envp)
|
|
{
|
|
return 0;
|
|
}
|
|
|
|
int fesetround(int r)
|
|
{
|
|
if (r != FE_TONEAREST
|
|
#ifdef FE_DOWNWARD
|
|
&& r != FE_DOWNWARD
|
|
#endif
|
|
#ifdef FE_UPWARD
|
|
&& r != FE_UPWARD
|
|
#endif
|
|
#ifdef FE_TOWARDZERO
|
|
&& r != FE_TOWARDZERO
|
|
#endif
|
|
)
|
|
return -1;
|
|
return __fesetround(r);
|
|
}
|
|
|