Changeset 8c6bd4d in git for libpolys/coeffs/rmodulon.cc

Timestamp:

Dec 14, 2012, 9:47:04 PM (10 years ago)

Author:

Martin Lee <martinlee84@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

Children:

4880569a037a922b03f2231fda984a5263af7b86

Parents:

6bb9d98190052a76f6d3e74e821b63ea531d8124

Message:

fix: init Z/* from bigint's

File:

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

libpolys/coeffs/rmodulon.cc

@@ -99 +99 @@
   r->cfCoeffWrite  = nrnCoeffWrite;
   r->nCoeffIsEqual = nrnCoeffsEqual;
+  r->cfInit_bigint = nrnMapQ;
+
 #ifdef LDEBUG
   r->cfDBTest      = nrnDBTest;
@@ -483 +485 @@
 }
 
-number nrnMapQ(number from, const coeffs src, const coeffs /*dst*/)
+number nrnMapQ(number from, const coeffs src, const coeffs dst)
 {
   int_number erg = (int_number)omAllocBin(gmp_nrz_bin);
   mpz_init(erg);
   nlGMP(from, (number)erg, src);
-  mpz_mod(erg, erg, src->modNumber);
+  mpz_mod(erg, erg, dst->modNumber);
   return (number)erg;
 }