Changeset 5c8e18f in git for libpolys/polys/ext_fields

Timestamp:

Jan 23, 2014, 2:22:22 PM (10 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

8baa377f0e7bdff672abd5ddeade4e629a51e405

Parents:

616d68556ae75bb7c49364150bb827162c506899

Message:

fix: access to chinese remainder, normalization of results

File:

• libpolys/polys/ext_fields/transext.cc (modified) (1 diff)

libpolys/polys/ext_fields/transext.cc

@@ -2383 +2383 @@
   omFreeSize(X,rl*sizeof(number));
   omFreeSize(P,rl*sizeof(poly*));
+  if (p_IsConstant(DEN(result), ntRing)
+  && n_IsOne(pGetCoeff(DEN(result)), ntCoeffs))
+  {
+    p_Delete(&DEN(result),ntRing);
+  }
   return ((number)result);
 }