Changeset 35c6e2c in git

Timestamp:

Jan 22, 2021, 3:55:14 PM (2 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

91bc522a482282a6f454e23d7b56246918b2d9e2

Parents:

bad89c24b3352b9c5651915636ed5f2d7766baf9

Message:

fix: map Z, Zn ->Zp, mpz_z ->Zp

File:

• libpolys/coeffs/modulop.cc (modified) (3 diffs)

libpolys/coeffs/modulop.cc

@@ -329 +329 @@
 #endif
 
+static number npInitMPZ(mpz_t m, const coeffs r)
+{
+  return (number)mpz_fdiv_ui(m, r->ch);
+}
+
 BOOLEAN npInitChar(coeffs r, void* p)
 {
@@ -359 +364 @@
   //r->cfSize  = ndSize;
   r->cfInt  = npInt;
+  r->cfInitMPZ = npInitMPZ;
   #ifdef HAVE_RINGS
   //r->cfDivComp = NULL; // only for ring stuff
@@ -567 +573 @@
 static number npMapGMP(number from, const coeffs /*src*/, const coeffs dst)
 {
-  mpz_ptr erg = (mpz_ptr) omAlloc(sizeof(mpz_t)); // evtl. spaeter mit bin
-  mpz_init(erg);
-
-  mpz_mod_ui(erg, (mpz_ptr) from, dst->ch);
-  number r = (number) mpz_get_si(erg);
-
-  mpz_clear(erg);
-  omFree((void *) erg);
-  return (number) r;
+  return (number)mpz_fdiv_ui((mpz_ptr) from, dst->ch);
 }