14 #if SI_INTEGER_VARIANT == 3 15 #define SR_HDL(A) ((long)(A)) 17 #define INT_TO_SR(INT) ((number) (((long)INT << 2) + SR_INT)) 18 #define SR_TO_INT(SR) (((long)SR) >> 2) 19 #define n_Z_IS_SMALL(A) (SR_HDL(A) & SR_INT) 20 #define INT_IS_SMALL(A) ( ((A << 1) >> 1) == A ) void nrzWrite(number a, const coeffs r)
Coefficient rings, fields and other domains suitable for Singular polynomials.
The main handler for Singular numbers which are suitable for Singular polynomials.
BOOLEAN nrzInitChar(coeffs r, void *parameter)