Changeset 6eb218 in git for kernel/GBEngine/kutil.cc

Timestamp:

Jul 7, 2015, 3:51:13 PM (8 years ago)

Author:

Adi Popescu <adi_popescum@…>

Branches:

(u'spielwiese', 'ec94ef7a30b928574c0c3daf41f6804dff5f6b69')

Children:

35a23c97dc27edb90d79faea3ca4dc136e382ea2

Parents:

d0e703dc337d27819a1065c061abfc0f530c5204

Message:

fix: delete non existing polys

File:

• kernel/GBEngine/kutil.cc (modified) (4 diffs)

kernel/GBEngine/kutil.cc

@@ -1524 +1524 @@
       pDelete(&sim2);
       pDelete(&pm1);
-      pDelete(&gcd);
       pDelete(&m1);
       pDelete(&m2);
@@ -1549 +1548 @@
   }
   p_Test(gcd, strat->tailRing);
-  p_LmDelete(m1, strat->tailRing);
-  p_LmDelete(m2, strat->tailRing);
+  //p_LmDelete(m1, strat->tailRing);
+  //p_LmDelete(m2, strat->tailRing);
 #ifdef KDEBUG
   if (TEST_OPT_DEBUG)
@@ -9216 +9215 @@
         if(pLmDivisibleBy(strat->S[i], p))
         {
-          nDelete(&(p->coef));
-          p->coef = currRing->cf->cfIntMod(p->coef, strat->S[i]->coef, currRing->cf);
+          number c = currRing->cf->cfIntMod(p->coef, strat->S[i]->coef, currRing->cf);
+          pSetCoeff(p,c);
         }
         if(nIsZero(p->coef))
@@ -9234 +9233 @@
         if(pLmDivisibleBy(strat->S[i], pp))
         {
-          nDelete(&(pp->coef));
-          pp->coef = currRing->cf->cfIntMod(pp->coef, strat->S[i]->coef, currRing->cf);
+          number c = currRing->cf->cfIntMod(pp->coef, strat->S[i]->coef, currRing->cf);
+          pSetCoeff(pp,c);
           if(nIsZero(pp->coef))
           {