diff options
author | tege <tege@gmplib.org> | 1999-03-17 20:05:13 +0100 |
---|---|---|
committer | tege <tege@gmplib.org> | 1999-03-17 20:05:13 +0100 |
commit | d7f665ff8e71330493e363812734b060fd6702c4 (patch) | |
tree | 2de3566ad7f9895b587c1b03516e37575394f406 | |
parent | 9ee49eaf2baed32c29b8ca5b9cd6fe2b32e2b198 (diff) | |
download | gmp-d7f665ff8e71330493e363812734b060fd6702c4.tar.gz |
When packing result, adjust exp when sc == 0.
-rw-r--r-- | extract-dbl.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/extract-dbl.c b/extract-dbl.c index 18a574db5..e18cb21f8 100644 --- a/extract-dbl.c +++ b/extract-dbl.c @@ -161,6 +161,7 @@ __gmp_extract_double (rp, d) { rp[1] = manl; rp[0] = 0; + exp--; } #else if (sc != 0) @@ -174,6 +175,7 @@ __gmp_extract_double (rp, d) rp[2] = manh; rp[1] = manl; rp[0] = 0; + exp--; } #endif |