Changeset 97c4ad in git for kernel/rmodulon.cc

Timestamp:

Feb 7, 2008, 2:43:55 PM (16 years ago)

Author:

Oliver Wienand <wienand@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

8a0aa21c22b9105b255d6aac7f0e8cb65969aa8a

Parents:

821a22ae8ecc6a0b779b6b960ba9b7a10b4225aa

Message:

kutil: gcd shortcut


git-svn-id: file:///usr/local/Singular/svn/trunk@10570 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• kernel/rmodulon.cc (modified) (3 diffs)

kernel/rmodulon.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: rmodulon.cc,v 1.19 2008-02-07 13:30:38 wienand Exp $ */
+/* $Id: rmodulon.cc,v 1.20 2008-02-07 13:43:55 wienand Exp $ */
 /*
 * ABSTRACT: numbers modulo n
@@ -232 +232 @@
 number  nrnGetUnit (number k)
 {
+  if (mpz_divisible_p(nrnModul, (int_number) k)) return nrnInt(1);
+
   int_number unit = (int_number) nrnGcd(k, 0, currRing);
   mpz_tdiv_q(unit, (int_number) k, unit);
@@ -267 +269 @@
 BOOLEAN nrnDivBy (number a,number b)
 {
-  return mpz_divisible_p((int_number) a, (int_number) b);
+  if (a == NULL)
+    return mpz_divisible_p(nrnModul, (int_number) b);
+  else
+    return mpz_divisible_p((int_number) a, (int_number) b);
   /*
   number bs = nrnGcd(a, b, NULL);