diff options
| author | vlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4> | 2001-09-11 01:02:15 +0000 |
|---|---|---|
| committer | vlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4> | 2001-09-11 01:02:15 +0000 |
| commit | e8b8e6a47cde2cdc77d251359a63647b3103006b (patch) | |
| tree | d5072156cb50c9075844e525a05d2bdecc8532eb /exceptions.c | |
| parent | e70ffd2e4310d590a5d043a40186460c68e42469 (diff) | |
| download | mpfr-e8b8e6a47cde2cdc77d251359a63647b3103006b.tar.gz | |
New flags.
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@1191 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'exceptions.c')
| -rw-r--r-- | exceptions.c | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/exceptions.c b/exceptions.c index b04a7dddc..7a0bf0199 100644 --- a/exceptions.c +++ b/exceptions.c @@ -129,6 +129,30 @@ mpfr_clear_overflow () __mpfr_flags &= MPFR_FLAGS_ALL ^ MPFR_FLAGS_OVERFLOW; } +#undef mpfr_clear_nanflag + +void +#if __STDC__ +mpfr_clear_nanflag (void) +#else +mpfr_clear_nanflag () +#endif +{ + __mpfr_flags &= MPFR_FLAGS_ALL ^ MPFR_FLAGS_NAN; +} + +#undef mpfr_clear_inexflag + +void +#if __STDC__ +mpfr_clear_inexflag (void) +#else +mpfr_clear_inexflag () +#endif +{ + __mpfr_flags &= MPFR_FLAGS_ALL ^ MPFR_FLAGS_INEXACT; +} + #undef mpfr_check_range int @@ -179,6 +203,30 @@ mpfr_overflow_p () return __mpfr_flags & MPFR_FLAGS_OVERFLOW; } +#undef mpfr_nanflag_p + +int +#if __STDC__ +mpfr_nanflag_p (void) +#else +mpfr_nanflag_p () +#endif +{ + return __mpfr_flags & MPFR_FLAGS_NAN; +} + +#undef mpfr_inexflag_p + +int +#if __STDC__ +mpfr_inexflag_p (void) +#else +mpfr_inexflag_p () +#endif +{ + return __mpfr_flags & MPFR_FLAGS_INEXACT; +} + #undef mpfr_set_underflow void |