Changeset 72e8c1 in git

Timestamp:

Jan 17, 2017, 2:55:46 PM (7 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '2fa36c576e6a4ddbb1093b43c7f8e9835e17e52a')

Children:

0091f520ce1d05c31263015fbc74956dd9b73454

Parents:

f234fb2281d0dac21b1fd712e8f48d04dd80a688

Message:

changes for short ints for n_Z

Location:

libpolys/coeffs

Files:

• longrat.cc (modified) (3 diffs)
• modulop.cc (modified) (1 diff)
• rintegers.cc (modified) (1 diff)

libpolys/coeffs/longrat.cc

@@ -966 +966 @@
 }
 
-number  nlGetUnit (number, const coeffs)
-{
-  return INT_TO_SR(1);
+number  nlGetUnit (number n, const coeffs cf)
+{
+  if (nlGreaterZero(n,cf)) return INT_TO_SR(1);
+  else                     return INT_TO_SR(-1);
 }
 
@@ -2477 +2478 @@
   return FALSE;
   #else
-  return (a==INT_TO_SR(0));
+  return (a==NULL)|| (a==INT_TO_SR(0));
   #endif
 }
@@ -3327 +3328 @@
   r->rep=n_rep_gap_rat;
 
-  //const int ch = (int)(long)(p);
-
   r->nCoeffIsEqual=nlCoeffIsEqual;
   //r->cfKillChar = ndKillChar; /* dummy */

libpolys/coeffs/modulop.cc

@@ -560 +560 @@
   r->nNULL = (number)0;
   r->type = n_Zp;
-  r->ch = c;
   r->has_simple_Alloc=TRUE;
   r->has_simple_Inverse=TRUE;

libpolys/coeffs/rintegers.cc

@@ -159 +159 @@
 {
   if (a == NULL) return 0;
-  return ABS(((mpz_ptr)a)->_mp_size);
+  return (((mpz_ptr)a)->_mp_alloc);
 }