summaryrefslogtreecommitdiff
path: root/set_str_raw.c
diff options
context:
space:
mode:
authorzimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4>2000-12-15 17:06:11 +0000
committerzimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4>2000-12-15 17:06:11 +0000
commit3f3cd6e438e072fef65a470c3a56d4147d7e5c4e (patch)
tree53fca9e94173f013aea02ef11f0104b3e689fc4c /set_str_raw.c
parent5c40754e336b235218197266f5225cf98feba7b0 (diff)
downloadmpfr-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.c13
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++; }