Changeset 0519cc in git

Timestamp:

Aug 3, 2011, 6:13:26 PM (12 years ago)

Author:

Martin Lee <martinlee84@…>

Branches:

(u'spielwiese', 'd1b01e9d51ade4b46b745d3bada5c5f3696be3a8')

Children:

a0432f40f592dc97101d98fa01a67c6491961523

Parents:

3bef0a1d1e460c3e6aea207800d6677a02625ba9

git-author:

Martin Lee <martinlee84@web.de>2011-08-03 18:13:26+02:00

git-committer:

Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 13:14:18+01:00

Message:

fixed interpolation.cc

File:

• Singular/interpolation.cc (modified) (4 diffs)

Singular/interpolation.cc

@@ -11 +11 @@
 #include <polys/polys.h>
 #include <Singular/lists.h>
-#include <kernel/longrat.h>
+#include <coeffs/longrat.h>
 #include <Singular/ipid.h>
 #include <polys/monomials/ring.h>
@@ -1496 +1496 @@
 
   // reading the ring data ***************************************************
-  if ((currRing==NULL) || ((!rField_is_Zp ())&&(!rField_is_Q ())))
+  if ((currRing==NULL) || ((!rField_is_Zp (currRing))&&(!rField_is_Q (currRing))))
   {
      WerrorS("coefficient field should be Zp or Q!");
@@ -1518 +1518 @@
   }
   variables=currRing->N;
-  only_modp=rField_is_Zp();
-  if (only_modp) myp=rChar();
+  only_modp=rField_is_Zp(currRing);
+  if (only_modp) myp=rChar(currRing);
   // ring data read **********************************************************
 
@@ -1760 +1760 @@
              mpz_init_set(n->z,temp->polycoef[a]);
              n->s=3;
-             nlNormalize(n);
+             nlNormalize(n, currRing->cf);
              p=pNSet(n); //a monomial
              for (j=0;j<variables;j++) pSetExp(p,j+1,temp->polyexp[a][j]);