| 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 |  | 
|---|