Changeset 146787 in git

Timestamp:

Dec 13, 2016, 1:51:02 PM (7 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

acfff2ce249bba8ef2de45dd104dabaf8e4fd8c5

Parents:

c03b74388f6c35406a0b77b6d7d263bba3e8e619

Message:

fix: nlExactDiv(short number, ...)

File:

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

libpolys/coeffs/longrat.cc

@@ -753 +753 @@
     return INT_TO_SR(aa/bb);
   }
+  number aa=NULL;
   number bb=NULL;
+  if (SR_HDL(a) & SR_INT)
+  {
+    aa=nlRInit(SR_TO_INT(a));
+    a=aa;
+  }
   if (SR_HDL(b) & SR_INT)
   {
@@ -769 +775 @@
   assume(b->s==3);
   mpz_divexact(u->z,a->z,b->z);
+  if (aa!=NULL)
+  {
+    mpz_clear(aa->z);
+#if defined(LDEBUG)
+    aa->debug=654324;
+#endif
+    FREE_RNUMBER(aa); // omFreeBin((void *)aa, rnumber_bin);
+  }
   if (bb!=NULL)
   {