Changeset d80dec in git for libpolys/coeffs/shortfl.cc

Timestamp:

Aug 23, 2013, 1:36:09 PM (11 years ago)

Author:

Martin Lee <martinlee84@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

2e416bb313f3d70371bd9a38ab5c86e29244f713

Parents:

737bbc28cadf54fd1dd228d3450a0b5231b137eb

git-author:

Martin Lee <martinlee84@web.de>2013-08-23 13:36:09+02:00

git-committer:

Martin Lee <martinlee84@web.de>2013-08-23 13:39:02+02:00

Message:

fix: nrMapQ (conversion of rationals to short precision floats)

File:

• libpolys/coeffs/shortfl.cc (modified) (3 diffs)

libpolys/coeffs/shortfl.cc

@@ -441 +441 @@
   mpf_init(e);
   mpf_set_z(e,z);
+  int sign= mpf_sgn(e);
+  mpf_abs (e, e);
 
   /* if number was an integer, we are done*/
@@ -453 +455 @@
     signed long int exp;
     basis = mpf_get_d_2exp(&exp, e);
-    float f= mpf_sgn(e)*ldexp(basis,exp);
+    float f= sign*ldexp(basis,exp);
     mpf_clear(e);
     return nf(f).N();
@@ -479 +481 @@
   signed long int exp;
   basis = mpf_get_d_2exp(&exp, q);
-  float f = mpf_sgn(e)*ldexp(basis,exp);
+  float f = sign*ldexp(basis,exp);
   mpf_clear(e);
   mpf_clear(d);