Changeset 07ff96 in git for libpolys/polys/monomials/p_polys.cc

Timestamp:

Dec 5, 2012, 3:28:19 PM (11 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

0145f469b68cb4ac35da3518ae5cb1464fbc85a4a07784ce2c96d788165ee1c5046e4e2f60bec8e3f659855c746f8978e0386f9dc2f9d9ecfc3d73b2

Parents:

80d7722e6833c629fe2c07881a5d23b7c4a9b4e4

Message:

optim. multiplication/equality test for algext.cc

File:

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

libpolys/polys/monomials/p_polys.cc

@@ -1518 +1518 @@
     poly t = p_ISet(1, r);
     number c = n_Div(p_GetCoeff(p, r), divisorLC, r->cf);
+    n_Normalize(c,r->cf);
     p_SetCoeff(t, c, r);
     int e = p_GetExp(p, 1, r) - divisorLE;
@@ -3917 +3918 @@
     if (! p_LmEqual(p1, p2,r))
       return FALSE;
-    if (! n_Equal(p_GetCoeff(p1,r), p_GetCoeff(p2,r),r ))
+    if (! n_Equal(p_GetCoeff(p1,r), p_GetCoeff(p2,r),r->cf ))
       return FALSE;
     pIter(p1);
@@ -4002 +4003 @@
         return FALSE;
     }
-    if (!n_Equal(p_GetCoeff(p1, r), nn = n_Mult(p_GetCoeff(p2, r),n, r), r))
+    if (!n_Equal(p_GetCoeff(p1, r), nn = n_Mult(p_GetCoeff(p2, r),n, r->cf), r->cf))
     {
       n_Delete(&n, r);