Changeset 613794 in git

Timestamp:

May 11, 2011, 7:44:47 PM (13 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

9a90342ac6c7e2f12bfda27f0321e45d10c13c82

Parents:

529fa4949959b00e5797a75be00fe6738a132f14

git-author:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2011-05-11 19:44:47+02:00

git-committer:

Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 12:36:06+01:00

Message:

add: CoeffIsEqual/KillChar for n_Z2m, n_Z

Location:

libpolys/coeffs

Files:

• rintegers.cc (modified) (1 diff)
• rmodulo2m.cc (modified) (1 diff)

libpolys/coeffs/rintegers.cc

@@ -382 +382 @@
 {
   r->cfSetChar= NULL;
+  r->nCoeffIsEqual = ndCoeffIsEqual;
+  r->cfKillChar = ndKillChar;
   r->cfMult  = nrzMult;
   r->cfSub   = nrzSub;
-  r->nCoeffIsEqual = ndCoeffIsEqual;
   r->cfAdd   = nrzAdd;
   r->cfDiv   = nrzDiv;

libpolys/coeffs/rmodulo2m.cc

@@ -28 +28 @@
 void    nr2mCoeffWrite  (const coeffs r)
 {
-  Print("//   Z/2^%lu\n", r->modExponent); 
-}
-
+  Print("//   Z/2^%lu\n", r->modExponent);
+}
+
+BOOLEAN nr2mCoeffIsEqual(const coeffs r, n_coeffType n, void * p)
+{
+  if (n==n_Z2m)
+  {
+    int m=(int)(long)(p);
+    unsigned long mm=r->mod2mMask;
+    if ((mm>>m)==1L) return TRUE;
+  }
+  return FALSE;
+}
 /* for initializing function pointers */
 BOOLEAN nr2mInitChar (coeffs r, void* p)
 {
-  
   nr2mInitExp((int)(long)(p), r);
+  r->cfKillChar    = ndKillChar; /* dummy*/
+  r->nCoeffIsEqual = nr2mCoeffIsEqual;
 
   r->cfInit        = nr2mInit;