Changeset fe99ed in git for libpolys/coeffs/rintegers.h

Timestamp:

Jul 22, 2014, 12:34:15 PM (9 years ago)

Author:

Claus Fieker <fieker@…>

Branches:

(u'spielwiese', 'e7cc1ebecb61be8b9ca6c18016352af89940b21a')

Children:

4e65f09322d32da3c0c1b29ba2d27d1aaf5a50ff

Parents:

9a6f8c15b898f962115ce36f094aaa7f9dc0be1f

git-author:

Claus Fieker <fieker@mathematik.uni-kl.de>2014-07-22 12:34:15+02:00

git-committer:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2014-07-23 13:12:50+02:00

Message:

"fix" the SI==3 case in rintegers and add the missing bits in rmodulon
again
Try a short patch to keep it simple

File:

• libpolys/coeffs/rintegers.h (modified) (1 diff)

libpolys/coeffs/rintegers.h

@@ -10 +10 @@
 #include <coeffs/coeffs.h>
 
-extern int nrzExp;
-extern NATNUMBER nrzModul;
+#if SI_INTEGER_VARIANT == 3
+#define SR_HDL(A) ((long)(A))
+#define SR_INT    1L
+#define INT_TO_SR(INT)  ((number) (((long)INT << 2) + SR_INT))
+#define SR_TO_INT(SR)   (((long)SR) >> 2)
+#define n_Z_IS_SMALL(A)     (SR_HDL(A) & SR_INT)
+#define INT_IS_SMALL(A) ( ((A << 1) >> 1) == A )
+#endif
+
+//extern int nrzExp;
+//extern NATNUMBER nrzModul;
 
 BOOLEAN nrzInitChar    (coeffs r,  void * parameter);