Changeset f3e64d2 in git for libpolys/coeffs/rmodulon.cc

Timestamp:

Aug 1, 2014, 3:35:54 PM (10 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '9ea349771971bc025429e7c2f664c4ed01240724')

Children:

43d920449ff39c4e637fe1191bbcd453fe1e309f

Parents:

51f42fbf080524dbee43ed5f9817284ab98b1a0c

Message:

changes for alternate integer representation

File:

• libpolys/coeffs/rmodulon.cc (modified) (2 diffs)

libpolys/coeffs/rmodulon.cc

@@ -743 +743 @@
   return nrnMapGMP(from,src,dst);
 }
+#elif SI_INTEGER_VARIANT==1
+number nrnMapZ(number from, const coeffs src, const coeffs dst)
+{
+  return nrnMapQ(from,src,dst);
+}
+#endif
+#if SI_INTEGER_VARIANT!=2
+void nrnWrite (number &a, const coeffs)
+{
+  char *s,*z;
+  if (a==NULL)
+  {
+    StringAppendS("o");
+  }
+  else
+  {
+    int l=mpz_sizeinbase((int_number) a, 10) + 2;
+    s=(char*)omAlloc(l);
+    z=mpz_get_str(s,10,(int_number) a);
+    StringAppendS(z);
+    omFreeSize((ADDRESS)s,l);
+  }
+}
 #endif
 
@@ -765 +788 @@
     return nrnMapZ;
   }
-  if ((src->rep==n_rep_gap_rat) && nCoeff_is_Q(src))
+  if (src->rep==n_rep_gap_rat) /*&& nCoeff_is_Q(src)) or Z*/
   {
     return nrnMapQ;