Changeset 488808e in git for libpolys/polys/monomials/ring.cc

Timestamp:

May 26, 2011, 12:12:01 PM (13 years ago)

Author:

Frank Seelisch <seelisch@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

5a4b26f3e00776270c3ba83b16c92a69f3cca0e0

Parents:

73a9ffb72679635d0a4389f31022ac7b37564499

git-author:

Frank Seelisch <seelisch@mathematik.uni-kl.de>2011-05-26 12:12:01+02:00

git-committer:

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

Message:

removed calls to nCoeff_is_Q_a and nCoeff_is_Zp_a (kept definitions for compatibility towards svn trunk); changed map in algext.cc

File:

• libpolys/polys/monomials/ring.cc (modified) (1 diff)

libpolys/polys/monomials/ring.cc

@@ -736 +736 @@
 }
 
-int rChar(ring r)
-{
-  TODO(Somabody, move this proc. over to coeffs!?);
-
-#ifdef HAVE_RINGS
-  if (rField_is_Ring_2toM(r))
-    return binaryPower(2, (int)(unsigned long)r->cf->modExponent);
-  if (rField_is_Ring_ModN(r))
-    return (int)mpz_get_ui(r->cf->modBase);
-  if (rField_is_Ring_PtoM(r))
-    return binaryPower((int)mpz_get_ui(r->cf->modBase),
-                       (int)(unsigned long)r->cf->modExponent);
-
-#endif
-  if (rField_is_numeric(r))
-    return 0;
-  if (!rIsExtension(r)) /* Q, Fp */
-    return r->cf->ch;
-  if (rField_is_Zp_a(r))  /* Fp(a)  */
-    return -r->cf->ch;
-  if (rField_is_Q_a(r))   /* Q(a)  */
-    return 0;
-  /*else*/               /* GF(p,n) */
-  {
-    if ((r->cf->ch & 1)==0) return 2;
-    int i=3;
-    while ((r->cf->ch % i)!=0) i+=2;
-    return i;
-  }
-}
+/* we keep this otherwise superfluous method for compatibility reasons
+   towards the SINGULAR svn trunk */
+int rChar(ring r) { return r->cf->ch; }
 
 typedef char *             char_ptr;