Changeset caf5880 in git for libpolys/coeffs

Timestamp:

Sep 25, 2013, 5:45:47 PM (11 years ago)

Author:

Martin Lee <martinlee84@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

24cabe8be470689fb5d2b6ae72002f2df22f7a4a

Parents:

7dcef65573794dbfd723491c96152310303af9c9

git-author:

Martin Lee <martinlee84@web.de>2013-09-25 17:45:47+02:00

git-committer:

Martin Lee <martinlee84@web.de>2013-09-25 17:47:57+02:00

Message:

chg: moved QlogSize from tgb.cc to longrat.h

File:

• libpolys/coeffs/longrat.h (modified) (1 diff)

libpolys/coeffs/longrat.h

@@ -131 +131 @@
 
 int      nlSize(number n, const coeffs r);
+
+static inline int nlQlogSize (number n, const coeffs r)
+{
+  assume( rField_is_Q (r) );
+
+  long nl=nlSize(n,r);
+  if (nl==0L) return 0;
+  if (nl==1L)
+  {
+    long i = SR_TO_INT (n);
+    unsigned long v;
+    v = (i >= 0) ? i : -i;
+    int r = 0;
+
+    while(v >>= 1)
+    {
+      r++;
+    }
+    return r + 1;
+  }
+  //assume denominator is 0
+  number nn=(number) n;
+  return mpz_sizeinbase (nn->z, 2);
+}
+
 number   nlGetDenom(number &n, const coeffs r);
 number   nlGetNumerator(number &n, const coeffs r);