Changeset ebf460 in git

Timestamp:

Sep 13, 2013, 2:28:01 PM (10 years ago)

Author:

Martin Lee <martinlee84@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

12d61707b29797f7bf3e42e5b9f0a01e937da42b

Parents:

d5cdf337c2c550eb851a3dbfb231f45857af1f8f

git-author:

Martin Lee <martinlee84@web.de>2013-09-13 14:28:01+02:00

git-committer:

Martin Lee <martinlee84@web.de>2013-09-14 10:05:27+02:00

Message:

chg: deleted unnecessary p_Content
chg: make monic if not over Q

File:

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

libpolys/polys/monomials/p_polys.cc

@@ -2855 +2855 @@
   assume(pNext(p)!=NULL);
 
-  if(1)
+  if(!rField_is_Q(r)) // && rField_has_simple_inverse(r)) //make monic over Zp !
   {
     h = p_GetCoeff(p, C);
@@ -2869 +2869 @@
     p_SetCoeff(p, n_Init(1, C), r);
   }
-  p_Cleardenom(ph, r);
-  p_Content(ph, r);
+
+  p_Cleardenom(ph, r); //performs also a p_Content
   return;
 }