Changeset 821a22 in git

Timestamp:

Feb 7, 2008, 2:30:38 PM (15 years ago)

Author:

Oliver Wienand <wienand@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

97c4adf4a6c730303b3306e9cd4fe5ff2d3a603a

Parents:

1e36c5c49e03ef1a34a6fa933337372c1c97d6f1

Message:

*** empty log message ***


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

Location:

kernel

Files:

• rmodulo2m.cc (modified) (3 diffs)
• rmodulon.cc (modified) (3 diffs)

kernel/rmodulo2m.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: rmodulo2m.cc,v 1.14 2008-01-30 10:21:53 wienand Exp $ */
+/* $Id: rmodulo2m.cc,v 1.15 2008-02-07 13:30:37 wienand Exp $ */
 /*
 * ABSTRACT: numbers modulo 2^m
@@ -199 +199 @@
 BOOLEAN nr2mDivBy (number a,number b)
 {
+  return ((NATNUMBER) a % (NATNUMBER) b) == 0;
+  /*
   if ((NATNUMBER) a == 0) return TRUE;
   if ((NATNUMBER) b == 0) return FALSE;
@@ -207 +209 @@
 }
   return ((NATNUMBER) b % 2 == 1);
+  */
 }
 

kernel/rmodulon.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: rmodulon.cc,v 1.18 2008-02-06 12:51:41 wienand Exp $ */
+/* $Id: rmodulon.cc,v 1.19 2008-02-07 13:30:38 wienand Exp $ */
 /*
 * ABSTRACT: numbers modulo n
@@ -267 +267 @@
 BOOLEAN nrnDivBy (number a,number b)
 {
+  return mpz_divisible_p((int_number) a, (int_number) b);
+  /*
   number bs = nrnGcd(a, b, NULL);
   mpz_tdiv_q((int_number) bs, (int_number) b, (int_number) bs);
@@ -272 +274 @@
   nrnDelete(&bs, NULL);
   return res;
+  */
 }