Changeset 036a5e in git for kernel/GBEngine/kspoly.cc

Timestamp:

Feb 15, 2021, 6:09:41 PM (3 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

897be4e9d0d99f6edc2785f7a335bdde34c0ad73

Parents:

7b5b095ed2434be9e1783ac23414e01c2a75fec4

Message:

new ksReducePoly

File:

• kernel/GBEngine/kspoly.cc (modified) (3 diffs)

kernel/GBEngine/kspoly.cc

@@ -187 +187 @@
                  poly spNoether,
                  number *coef,
+                 poly *mon,
                  kStrategy strat)
 {
@@ -239 +240 @@
 #endif
 
-  if (t2==NULL)           // Divisor is just one term, therefore it will
+  if ((t2==NULL)&&(mon==NULL)) // Divisor is just one term, therefore it will
   {                       // just cancel the leading term
     PR->LmDeleteAndIter();
@@ -293 +294 @@
     if (coef != NULL) *coef = n_Init(1, tailRing->cf);
   }
-
+  if(mon!=NULL) *mon=pHead(lm);
 
   // and finally,