Changeset b19ab84 in git for libpolys/coeffs/rmodulon.cc

Timestamp:

May 10, 2011, 7:05:58 PM (13 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

05aa4ba5a9c62c92398b1cd7067b8977ec993bb3

Parents:

bea370bfafc6b719f65e3d21472ecc023533e962

git-author:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2011-05-10 19:05:58+02:00

git-committer:

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

Message:

add some missing routines to coeffs

File:

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

libpolys/coeffs/rmodulon.cc

@@ -34 +34 @@
   omFreeSize((ADDRESS)s, l);
 }
+
+static BOOLEAN nrnCoeffsEqual(const coeffs r, n_coeffType n, void * parameter)
+{
+  /* test, if r is an instance of nInitCoeffs(n,parameter) */
+  return (n==n_Zn) && (mpz_cmp(r->modNumber,(mpz_ptr)parameter)==0);
+}
+
 
 /* for initializing function pointers */
@@ -75 +82 @@
   r->cfName        = ndName;
   r->cfCoeffWrite  = nrnCoeffWrite;
+  r->nCoeffIsEqual = nrnCoeffsEqual;
 #ifdef LDEBUG
   r->cfDBTest      = nrnDBTest;