diff options
author | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2000-12-15 17:06:11 +0000 |
---|---|---|
committer | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2000-12-15 17:06:11 +0000 |
commit | 3f3cd6e438e072fef65a470c3a56d4147d7e5c4e (patch) | |
tree | 53fca9e94173f013aea02ef11f0104b3e689fc4c /set_str_raw.c | |
parent | 5c40754e336b235218197266f5225cf98feba7b0 (diff) | |
download | mpfr-3f3cd6e438e072fef65a470c3a56d4147d7e5c4e.tar.gz |
adapted to NaN/Inf
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@884 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'set_str_raw.c')
-rw-r--r-- | set_str_raw.c | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/set_str_raw.c b/set_str_raw.c index f736fc01b..43a62a35c 100644 --- a/set_str_raw.c +++ b/set_str_raw.c @@ -37,9 +37,9 @@ MA 02111-1307, USA. */ void #if __STDC__ -mpfr_set_str_raw(mpfr_ptr x, char *str) +mpfr_set_str_raw (mpfr_ptr x, char *str) #else -mpfr_set_str_raw(x, str) +mpfr_set_str_raw (x, str) mpfr_ptr x; char *str; #endif @@ -52,6 +52,7 @@ mpfr_set_str_raw(x, str) xsize = 1 + (MPFR_PREC(x)-1)/BITS_PER_MP_LIMB; alloc = (strlen(str)+1) * sizeof(char); str0 = str2 = (char *) (*_mp_allocate_func) (alloc); + if (str0 == NULL) { fprintf (stderr, "Error in mpfr_set_str_raw: no more memory available\n"); exit (1); @@ -62,14 +63,18 @@ mpfr_set_str_raw(x, str) if (*str == 'I') { - MPFR_SET_INF(x); if (MPFR_ISNEG(x) != negative) { MPFR_CHANGE_SIGN(x); } + MPFR_SET_INF(x); + if (MPFR_ISNEG(x) != negative) MPFR_CHANGE_SIGN(x); return; } if (*str == 'N') { - MPFR_SET_NAN(x); return; + MPFR_SET_NAN(x); + return; } + + MPFR_CLEAR_FLAGS(x); while (*str == '0') { str++; } |