2 * SPDX-License-Identifier: BSD-2-Clause-FreeBSD
4 * Copyright (c) 2004-2005 David Schultz <das@FreeBSD.ORG>
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
16 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
17 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
18 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
19 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
20 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
21 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
22 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
23 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
24 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
25 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
34 #include <sys/_types.h>
37 #define __fenv_static static
40 typedef __uint32_t fenv_t;
41 typedef __uint32_t fexcept_t;
44 #ifdef __mips_soft_float
45 #define _FPUSW_SHIFT 16
46 #define FE_INVALID 0x0001
47 #define FE_DIVBYZERO 0x0002
48 #define FE_OVERFLOW 0x0004
49 #define FE_UNDERFLOW 0x0008
50 #define FE_INEXACT 0x0010
52 #define _FCSR_CAUSE_SHIFT 10
53 #define FE_INVALID 0x0040
54 #define FE_DIVBYZERO 0x0020
55 #define FE_OVERFLOW 0x0010
56 #define FE_UNDERFLOW 0x0008
57 #define FE_INEXACT 0x0004
59 #define FE_ALL_EXCEPT (FE_DIVBYZERO | FE_INEXACT | \
60 FE_INVALID | FE_OVERFLOW | FE_UNDERFLOW)
63 #define FE_TONEAREST 0x0000
64 #define FE_TOWARDZERO 0x0001
65 #define FE_UPWARD 0x0002
66 #define FE_DOWNWARD 0x0003
67 #define _ROUND_MASK (FE_TONEAREST | FE_DOWNWARD | \
68 FE_UPWARD | FE_TOWARDZERO)
71 /* Default floating-point environment */
72 extern const fenv_t __fe_dfl_env;
73 #define FE_DFL_ENV (&__fe_dfl_env)
75 /* We need to be able to map status flag positions to mask flag positions */
76 #define _ENABLE_SHIFT 5
77 #define _ENABLE_MASK (FE_ALL_EXCEPT << _ENABLE_SHIFT)
79 #if !defined(__mips_soft_float) && !defined(__mips_hard_float)
80 #error compiler didnt set soft/hard float macros
83 #ifndef __mips_soft_float
84 #define __cfc1(__fcsr) __asm __volatile("cfc1 %0, $31" : "=r" (__fcsr))
85 #define __ctc1(__fcsr) __asm __volatile("ctc1 %0, $31" :: "r" (__fcsr))
88 #ifdef __mips_soft_float
89 int feclearexcept(int __excepts);
90 int fegetexceptflag(fexcept_t *__flagp, int __excepts);
91 int fesetexceptflag(const fexcept_t *__flagp, int __excepts);
92 int feraiseexcept(int __excepts);
93 int fetestexcept(int __excepts);
95 int fesetround(int __round);
96 int fegetenv(fenv_t *__envp);
97 int feholdexcept(fenv_t *__envp);
98 int fesetenv(const fenv_t *__envp);
99 int feupdateenv(const fenv_t *__envp);
101 __fenv_static inline int
102 feclearexcept(int __excepts)
106 __excepts &= FE_ALL_EXCEPT;
108 fcsr &= ~(__excepts | (__excepts << _FCSR_CAUSE_SHIFT));
114 __fenv_static inline int
115 fegetexceptflag(fexcept_t *__flagp, int __excepts)
119 __excepts &= FE_ALL_EXCEPT;
121 *__flagp = fcsr & __excepts;
126 __fenv_static inline int
127 fesetexceptflag(const fexcept_t *__flagp, int __excepts)
131 __excepts &= FE_ALL_EXCEPT;
134 fcsr |= *__flagp & __excepts;
140 __fenv_static inline int
141 feraiseexcept(int __excepts)
145 __excepts &= FE_ALL_EXCEPT;
147 fcsr |= __excepts | (__excepts << _FCSR_CAUSE_SHIFT);
153 __fenv_static inline int
154 fetestexcept(int __excepts)
158 __excepts &= FE_ALL_EXCEPT;
161 return (fcsr & __excepts);
164 __fenv_static inline int
171 return (fcsr & _ROUND_MASK);
174 __fenv_static inline int
175 fesetround(int __round)
179 if (__round & ~_ROUND_MASK)
183 fcsr &= ~_ROUND_MASK;
190 __fenv_static inline int
191 fegetenv(fenv_t *__envp)
199 __fenv_static inline int
200 feholdexcept(fenv_t *__envp)
206 fcsr &= ~(FE_ALL_EXCEPT | _ENABLE_MASK);
212 __fenv_static inline int
213 fesetenv(const fenv_t *__envp)
221 __fenv_static inline int
222 feupdateenv(const fenv_t *__envp)
232 #endif /* !__mips_soft_float */
236 /* We currently provide no external definitions of the functions below. */
238 #ifdef __mips_soft_float
239 int feenableexcept(int __mask);
240 int fedisableexcept(int __mask);
241 int fegetexcept(void);
244 feenableexcept(int __mask)
246 fenv_t __old_fcsr, __new_fcsr;
249 __new_fcsr = __old_fcsr | (__mask & FE_ALL_EXCEPT) << _ENABLE_SHIFT;
252 return ((__old_fcsr >> _ENABLE_SHIFT) & FE_ALL_EXCEPT);
256 fedisableexcept(int __mask)
258 fenv_t __old_fcsr, __new_fcsr;
261 __new_fcsr = __old_fcsr & ~((__mask & FE_ALL_EXCEPT) << _ENABLE_SHIFT);
264 return ((__old_fcsr >> _ENABLE_SHIFT) & FE_ALL_EXCEPT);
274 return ((fcsr & _ENABLE_MASK) >> _ENABLE_SHIFT);
277 #endif /* !__mips_soft_float */
279 #endif /* __BSD_VISIBLE */
283 #endif /* !_FENV_H_ */