1/**
 2 * This file has no copyright assigned and is placed in the Public Domain.
 3 * This file is part of the mingw-w64 runtime package.
 4 * No warranty is given; refer to the file DISCLAIMER.PD within this package.
 5 */
 6
 7#include <internal.h>
 8
 9/* 7.6.2.1
10   The feclearexcept function clears the supported exceptions
11   represented by its argument.  */
12
13int feclearexcept(int flags)
14{
15    fenv_t env;
16
17    fegetenv(&env);
18    flags &= FE_ALL_EXCEPT;
19    env._Fe_stat &= ~fenv_encode(flags, flags);
20    return fesetenv(&env);
21}