| 1 | #ifndef _FENV_H |
| 2 | #include <math/fenv.h> |
| 3 | |
| 4 | #ifndef _ISOMAC |
| 5 | # include <stdbool.h> |
| 6 | /* Now define the internal interfaces. */ |
| 7 | |
| 8 | extern int __feclearexcept (int __excepts); |
| 9 | extern int __fegetexcept (void); |
| 10 | extern int __fegetexceptflag (fexcept_t *__flagp, int __excepts); |
| 11 | extern int __feraiseexcept (int __excepts); |
| 12 | extern int __fesetexceptflag (const fexcept_t *__flagp, int __excepts); |
| 13 | extern int __fegetenv (fenv_t *__envp); |
| 14 | extern int __fesetenv (const fenv_t *__envp); |
| 15 | extern int __feupdateenv (const fenv_t *__envp); |
| 16 | extern __typeof (fegetround) __fegetround __attribute_pure__; |
| 17 | extern __typeof (feholdexcept) __feholdexcept; |
| 18 | extern __typeof (fesetround) __fesetround; |
| 19 | |
| 20 | libm_hidden_proto (feraiseexcept) |
| 21 | libm_hidden_proto (__feraiseexcept) |
| 22 | libm_hidden_proto (fegetenv) |
| 23 | libm_hidden_proto (__fegetenv) |
| 24 | libm_hidden_proto (fegetround) |
| 25 | libm_hidden_proto (__fegetround) |
| 26 | libm_hidden_proto (fesetenv) |
| 27 | libm_hidden_proto (__fesetenv) |
| 28 | libm_hidden_proto (fesetround) |
| 29 | libm_hidden_proto (__fesetround) |
| 30 | libm_hidden_proto (feholdexcept) |
| 31 | libm_hidden_proto (__feholdexcept) |
| 32 | libm_hidden_proto (feupdateenv) |
| 33 | libm_hidden_proto (__feupdateenv) |
| 34 | libm_hidden_proto (fetestexcept) |
| 35 | libm_hidden_proto (feclearexcept) |
| 36 | |
| 37 | /* Rounding mode context. This allows functions to set/restore rounding mode |
| 38 | only when the desired rounding mode is different from the current rounding |
| 39 | mode. */ |
| 40 | struct rm_ctx |
| 41 | { |
| 42 | fenv_t env; |
| 43 | bool updated_status; |
| 44 | }; |
| 45 | |
| 46 | /* Track whether rounding mode macros were defined, since |
| 47 | get-rounding-mode.h may define default versions if they weren't. |
| 48 | FE_TONEAREST must always be defined (even if no changes of rounding |
| 49 | mode are supported, glibc requires it to be defined to represent |
| 50 | the default rounding mode). */ |
| 51 | # ifndef FE_TONEAREST |
| 52 | # error "FE_TONEAREST not defined" |
| 53 | # endif |
| 54 | # if defined FE_DOWNWARD || defined FE_TOWARDZERO || defined FE_UPWARD |
| 55 | # define FE_HAVE_ROUNDING_MODES 1 |
| 56 | # else |
| 57 | # define FE_HAVE_ROUNDING_MODES 0 |
| 58 | # endif |
| 59 | |
| 60 | /* When no floating-point exceptions are defined in <fenv.h>, make |
| 61 | feraiseexcept ignore its argument so that unconditional |
| 62 | feraiseexcept calls do not cause errors for undefined exceptions. |
| 63 | Define it to expand to a void expression so that any calls testing |
| 64 | the result of feraiseexcept do produce errors. */ |
| 65 | # if FE_ALL_EXCEPT == 0 |
| 66 | # define feraiseexcept(excepts) ((void) 0) |
| 67 | # define __feraiseexcept(excepts) ((void) 0) |
| 68 | # endif |
| 69 | |
| 70 | /* Similarly, most <fenv.h> functions have trivial implementations in |
| 71 | the absence of support for floating-point exceptions and rounding |
| 72 | modes. */ |
| 73 | |
| 74 | # if !FE_HAVE_ROUNDING_MODES |
| 75 | # if FE_ALL_EXCEPT == 0 |
| 76 | extern inline int |
| 77 | fegetenv (fenv_t *__e) |
| 78 | { |
| 79 | return 0; |
| 80 | } |
| 81 | |
| 82 | extern inline int |
| 83 | __fegetenv (fenv_t *__e) |
| 84 | { |
| 85 | return 0; |
| 86 | } |
| 87 | |
| 88 | extern inline int |
| 89 | feholdexcept (fenv_t *__e) |
| 90 | { |
| 91 | return 0; |
| 92 | } |
| 93 | |
| 94 | extern inline int |
| 95 | __feholdexcept (fenv_t *__e) |
| 96 | { |
| 97 | return 0; |
| 98 | } |
| 99 | |
| 100 | extern inline int |
| 101 | fesetenv (const fenv_t *__e) |
| 102 | { |
| 103 | return 0; |
| 104 | } |
| 105 | |
| 106 | extern inline int |
| 107 | __fesetenv (const fenv_t *__e) |
| 108 | { |
| 109 | return 0; |
| 110 | } |
| 111 | |
| 112 | extern inline int |
| 113 | feupdateenv (const fenv_t *__e) |
| 114 | { |
| 115 | return 0; |
| 116 | } |
| 117 | |
| 118 | extern inline int |
| 119 | __feupdateenv (const fenv_t *__e) |
| 120 | { |
| 121 | return 0; |
| 122 | } |
| 123 | # endif |
| 124 | |
| 125 | extern inline int |
| 126 | fegetround (void) |
| 127 | { |
| 128 | return FE_TONEAREST; |
| 129 | } |
| 130 | |
| 131 | extern inline int |
| 132 | __fegetround (void) |
| 133 | { |
| 134 | return FE_TONEAREST; |
| 135 | } |
| 136 | |
| 137 | extern inline int |
| 138 | fesetround (int __d) |
| 139 | { |
| 140 | return 0; |
| 141 | } |
| 142 | |
| 143 | extern inline int |
| 144 | __fesetround (int __d) |
| 145 | { |
| 146 | return 0; |
| 147 | } |
| 148 | # endif |
| 149 | |
| 150 | #endif |
| 151 | |
| 152 | #endif |
| 153 | |