compiler/stdc/_fenv.c

   1 /*
   2     Copyright © 1995-2018, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 /* The functions of fenv.h may be static inline functions which may not be
   7  * available for the shared library. Which of the functions may depend
   8  * on cpu arch.
   9  * Add some stub function to make them available. In stdc.conf the
  10  * function name with _ prepended will be used.
  11  */
  12
  13 #include "__stdc_intbase.h"
  14 #include <fenv.h>
  15
  16 void *__stdc_get_fe_dfl(void)
  17 {
  18     struct StdCIntBase *_StdCBase = (struct StdCIntBase *)__aros_getbase_StdCBase();
  19     return (void *)_StdCBase->__fe_dfl_env;
  20 }
  21
  22 void *__stdc_get_fe_nom(void)
  23 {
  24     struct StdCIntBase *_StdCBase = (struct StdCIntBase *)__aros_getbase_StdCBase();
  25     return (void *)_StdCBase->__fe_nomask_env;
  26 }
  27
  28 int __stdc_get_fe_round(void)
  29 {
  30     struct StdCIntBase *_StdCBase = (struct StdCIntBase *)__aros_getbase_StdCBase();
  31     return _StdCBase->__fe_round;
  32 }
  33
  34 int _feclearexcept(int excepts)
  35 {
  36     return feclearexcept(excepts);
  37 }
  38
  39 int _fegetexceptflag(fexcept_t *flagp, int excepts) {
  40     return fegetexceptflag(flagp, excepts);
  41 }
  42
  43 int _fesetexceptflag(const fexcept_t *flagp, int excepts) {
  44     return fesetexceptflag(flagp, excepts);
  45 }
  46
  47 int _feraiseexcept(int excepts) {
  48     return feraiseexcept(excepts);
  49 }
  50
  51 int _fetestexcept(int excepts) {
  52     return fetestexcept(excepts);
  53 }
  54
  55 int _fegetround(void) {
  56     return fegetround();
  57 }
  58
  59 int _fesetround(int round) {
  60     return fesetround(round);
  61 }
  62
  63 int _fegetenv(fenv_t *envp) {
  64     return fegetenv(envp);
  65 }
  66
  67 int _feholdexcept(fenv_t *envp) {
  68     return feholdexcept(envp);
  69 }
  70
  71 int _fesetenv(const fenv_t *envp) {
  72     return fesetenv(envp);
  73 }
  74
  75 int _feupdateenv(const fenv_t *envp) {
  76     return feupdateenv(envp);
  77 }
  78
  79