Changeset a15a71 in git for libpolys

Timestamp:

Aug 31, 2017, 3:28:53 PM (7 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

04b76976356e711219b4271eacede2aad8c2b5eb

Parents:

639345cb183019a538568be59dbe1acb10fa6e52

Message:

chg: simplyfied p_DivideM, rChangeCurrRing(NULL)

File:

• libpolys/polys/monomials/p_polys.cc (modified) (3 diffs)

libpolys/polys/monomials/p_polys.cc

@@ -1545 +1545 @@
   poly result=a;
   poly prev=NULL;
-#ifdef HAVE_RINGS
   number inv=pGetCoeff(b);
-#else
-  number inv=n_Invers(pGetCoeff(b),r->cf);
-#endif
 
   while (a!=NULL)
@@ -1573 +1569 @@
     }
   }
-#ifdef HAVE_RINGS
-  if (n_IsUnit(inv,r->cf))
+  if ((!rField_is_Ring(r)) || n_IsUnit(inv,r->cf))
   {
     inv = n_Invers(inv,r->cf);
     p_Mult_nn(result,inv,r);
-    n_Delete(&inv, r->cf);
   }
   else
@@ -1584 +1578 @@
     result = p_Div_nn(result,inv,r);
   }
-#else
-  result = p_Mult_nn(result,inv,r);
   n_Delete(&inv, r->cf);
-#endif
   p_Delete(&b, r);
   return result;