Changeset a0707f8 in git for libpolys/coeffs/rintegers.cc

Timestamp:

Mar 13, 2017, 2:19:10 PM (7 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '38077648e7239f98078663eb941c3c979511150a')

Children:

17c3150d26605e770ae78cd36b6201409f4f1ab3

Parents:

a5b3bfc89e0d6875d26d979d8393b09e12c97621

Message:

code review: rings with Zn Znm, Z2m coefficients, changed nlGMP

File:

• libpolys/coeffs/rintegers.cc (modified) (5 diffs)

libpolys/coeffs/rintegers.cc

@@ -333 +333 @@
   mpz_ptr erg = (mpz_ptr) omAllocBin(gmp_nrz_bin);
   mpz_init(erg);
-  nlGMP(from, (number) erg, src); // FIXME? TODO? // extern void   nlGMP(number &i, number n, const coeffs r); // to be replaced with n_MPZ(erg, from, src); // ?
+  nlGMP(from, erg, src); // FIXME? TODO? // extern void   nlGMP(number &i, number n, const coeffs r); // to be replaced with n_MPZ(erg, from, src); // ?
   return (number) erg;
 }
@@ -481 +481 @@
 {
     long ch = r->cfInt(c, r);
-    mpz_ptr dummy;
-    dummy = (mpz_ptr) omAlloc(sizeof(mpz_t));
+    mpz_t dummy;
     mpz_init_set_ui(dummy, ch);
     ZnmInfo info;
@@ -488 +487 @@
     info.exp = (unsigned long) 1;
     coeffs rr = nInitChar(n_Zn, (void*)&info);
+    mpz_clear(dummy);
     return(rr);
 }
@@ -1785 +1785 @@
 static coeffs nrzQuot1(number c, const coeffs r)
 {
-    mpz_ptr dummy;
-    dummy = (mpz_ptr) omAlloc(sizeof(mpz_t));
+    mpz_t dummy;
     if(n_Z_IS_SMALL(c))
     {
@@ -1800 +1799 @@
     info.exp = (unsigned long) 1;
     coeffs rr = nInitChar(n_Zn, (void*)&info);
+    mpz_clear(dummy);
     return(rr);
 }