Changeset b1190b in git for libpolys

Timestamp:

Oct 5, 2016, 12:06:55 PM (8 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

8450df62c514daa3379aabafc1fb710c5b3453c9

Parents:

50a0eb6a06430df83592ea9590c76105f926b5e5

Message:

fix: nlWrite(a,r) should not change a

File:

• libpolys/coeffs/longrat0.cc (modified) (2 diffs)

libpolys/coeffs/longrat0.cc

@@ -127 +127 @@
   else
   {
-    if (a->s==0)
-    {
-      nlNormalize(a,r); // FIXME? TODO? // extern void     nlNormalize(number &x, const coeffs r);
-      nlWrite(a,r);
-      return;
-    }
     int l=mpz_sizeinbase(a->z,10);
     if (a->s<2) l=si_max(l,(int)mpz_sizeinbase(a->n,10));
@@ -149 +143 @@
 }
 
+#if 0
+void nlDebugWrite (number a)
+{
+  char *s,*z;
+  if (SR_HDL(a) & SR_INT)
+  {
+    Print("%ld",SR_TO_INT(a));
+  }
+  else if (a==NULL)
+  {
+    PrintS("o");
+  }
+  else
+  {
+    int l=mpz_sizeinbase(a->z,10);
+    if (a->s<2) l=si_max(l,(int)mpz_sizeinbase(a->n,10));
+    l+=2;
+    s=(char*)omAlloc(l);
+    z=mpz_get_str(s,10,a->z);
+    PrintS(z);
+    if (a->s!=3)
+    {
+      PrintS("/");
+      z=mpz_get_str(s,10,a->n);
+      PrintS(z);
+    }
+    omFreeSize((void *)s,l);
+  }
+}
+#endif