Changeset b0c494 in git

Timestamp:

Dec 2, 2016, 11:39:37 AM (7 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

8887b41c7cf2b4dffeb359786847b118af50e3fe

Parents:

44b732cf21d0418e6797e04111cd38378ac2210e

Message:

fix: nrzQuotRem, allow r to be NULL

File:

• libpolys/coeffs/rintegers.cc (modified) (1 diff)

libpolys/coeffs/rintegers.cc

@@ -270 +270 @@
   mpz_ptr qq = (mpz_ptr) omAllocBin(gmp_nrz_bin);
   mpz_init(qq);
-  mpz_init((mpz_ptr)(*r));
-  mpz_fdiv_qr(qq, (mpz_ptr)(*r), (mpz_ptr) a, (mpz_ptr) b);
+  mpz_ptr rr = (mpz_ptr) omAllocBin(gmp_nrz_bin);
+  mpz_init(rr);
+  mpz_tdiv_qr(qq, rr, (mpz_ptr) a, (mpz_ptr) b);
+  if (r==NULL)
+  {
+    mpz_clear(rr);
+    omFreeBin(rr,gmp_nrz_bin);
+  }
+  else
+  {
+    *r=rr;
+  }
   return (number) qq;
 }