/* Copyright (C) 2016-2020, Dirk Krause SPDX-License-Identifier: BSD-3-Clause */ /* WARNING: This file was generated by the dkct program (see http://dktools.sourceforge.net/ for details). Changes you make here will be lost if dkct is run again! You should modify the original source and run dkct on it. Original source: dk4fpe.ctr */ /** @file dk4fpe.c The dk4fpe module. */ #line 174 "dk4fpe.ctr" #include "dk4conf.h" #if DK4_HAVE_ASSERT_H #ifndef ASSERT_H_INCLUDED #include #define ASSERT_H_INCLUDED 1 #endif #endif #include "dk4fpe.h" #if _WIN32 && defined(_MSC_VER) /** Exception set for errors. */ static const unsigned int dk4fpe_errors = _SW_ZERODIVIDE | _SW_INVALID | _SW_OVERFLOW | _SW_UNDERFLOW; #else /** Exception set for errors. */ static const int dk4fpe_errors = FE_DIVBYZERO | FE_INVALID | FE_OVERFLOW | FE_UNDERFLOW; #endif int dk4fpe_check_error(dk4_fpe_t fpe, dk4_er_t *erp) { int back = 0; if ((dk4_fpe_t)0 != (dk4fpe_errors & fpe)) { back = 1; #if _WIN32 && defined(_MSC_VER) if ((dk4_fpe_t)0 != (_SW_INVALID & fpe)) #else if ((dk4_fpe_t)0 != (FE_INVALID & fpe)) #endif { dk4error_set_simple_error_code(erp, DK4_E_MATH_INVALID); } else { #if _WIN32 && defined(_MSC_VER) if ((dk4_fpe_t)0 != (_SW_ZERODIVIDE & fpe)) #else if ((dk4_fpe_t)0 != (FE_DIVBYZERO & fpe)) #endif { dk4error_set_simple_error_code(erp, DK4_E_MATH_DIVZERO); } else { #if _WIN32 && defined(_MSC_VER) if ((dk4_fpe_t)0 != (_SW_OVERFLOW & fpe)) #else if ((dk4_fpe_t)0 != (FE_OVERFLOW & fpe)) #endif { dk4error_set_simple_error_code(erp, DK4_E_MATH_OVERFLOW); } else { #if _WIN32 && defined(_MSC_VER) if ((dk4_fpe_t)0 != (_SW_UNDERFLOW & fpe)) #else if ((dk4_fpe_t)0 != (FE_UNDERFLOW & fpe)) #endif { dk4error_set_simple_error_code(erp, DK4_E_MATH_UNDERFLOW); } } } } } return back; } int dk4fpe_clear(dk4_er_t *erp) { #if _WIN32 && defined(_MSC_VER) _clearfp(); return 1; #else #if DK4_HAVE_FETESTEXCEPT int back = 0; if (0 == feclearexcept(FE_ALL_EXCEPT)) { back = 1; } else { dk4error_set_simple_error_code(erp, DK4_E_SYSTEM); } return back; #else dk4error_set_simple_error_code(erp, DK4_E_NOT_SUPPORTED); return 0; #endif #endif } int dk4fpe_get(dk4_fpe_t *dptr, dk4_er_t *erp) { int back = 0; #if DK4_USE_ASSERT assert(NULL != dptr); #endif if (NULL != dptr) { #if _WIN32 && defined(_MSC_VER) *dptr = (dk4_fpe_t)_statusfp(); back = 1; #else #if DK4_HAVE_FETESTEXCEPT *dptr = (dk4_fpe_t)fetestexcept(FE_ALL_EXCEPT); back = 1; #else dk4error_set_simple_error_code(erp, DK4_E_NOT_SUPPORTED); #endif #endif } else { dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS); } return back; } int dk4fpe_get_clear(dk4_fpe_t *dptr, dk4_er_t *erp) { int back = 0; #if DK4_USE_ASSERT assert(NULL != dptr); #endif if (NULL != dptr) { #if _WIN32 && defined(_MSC_VER) *dptr = _clearfp(); back = 1; #else #if DK4_HAVE_FETESTEXCEPT *dptr = (dk4_fpe_t)fetestexcept(FE_ALL_EXCEPT); if (0 == feclearexcept(FE_ALL_EXCEPT)) { back = 1; } else { dk4error_set_simple_error_code(erp, DK4_E_SYSTEM); } #else dk4error_set_simple_error_code(erp, DK4_E_NOT_SUPPORTED); #endif #endif } else { dk4error_set_simple_error_code(erp, DK4_E_INVALID_ARGUMENTS); } return back; }