Changeset 8e56ad in git for kernel/rmodulon.h

Timestamp:

Jan 30, 2008, 2:03:41 PM (16 years ago)

Author:

Oliver Wienand <wienand@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

faa7df853a3237b63560a72ed208619df8d26215

Parents:

b18621d3f9473a4a76cf41af06dfefe3b7a400f5

Message:

rintegers.cc:
Bereinigung

rmodulon:
Umstellung auf gmp


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

File:

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

kernel/rmodulon.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: rmodulon.h,v 1.4 2007-06-20 09:39:25 wienand Exp $ */
+/* $Id: rmodulon.h,v 1.5 2008-01-30 13:03:41 wienand Exp $ */
 /*
 * ABSTRACT: numbers modulo n
@@ -14 +14 @@
 #define NATNUMBER unsigned long
 #endif
-
-extern int nrnExp;
-extern NATNUMBER nrnModul;
 
 BOOLEAN nrnGreaterZero (number k);
@@ -51 +48 @@
 void    nrnInitExp(int c, ring r);
 
-
-static inline number nrnMultM(number a, number b)
-{
-  return (number) 
-    ((((NATNUMBER) a)*((NATNUMBER) b)) % ((NATNUMBER) nrnModul));
-}
-
-static inline number nrnAddM(number a, number b)
-{
-  NATNUMBER r = (NATNUMBER)a + (NATNUMBER)b;
-  return (number) (r >= nrnModul ? r - nrnModul : r);
-}
-
-static inline number nrnSubM(number a, number b)
-{
-  return (number)((NATNUMBER)a<(NATNUMBER)b ?
-                       nrnModul-(NATNUMBER)b+(NATNUMBER)a : (NATNUMBER)a-(NATNUMBER)b);
-}
-
-#define nrnNegM(A) (number)(nrnModul-(NATNUMBER)(A))
-#define nrnEqualM(A,B)  ((A)==(B))
-
 #endif
 #endif