Changeset 6ad7e6 in git for libpolys

Timestamp:

Nov 10, 2012, 4:37:11 PM (11 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '6e5adcba05493683b94648c659a729c189812c77')

Children:

780b5285f9d867d03d9da5298c36e8bedf88eaf4

Parents:

a2da9ea07b27576399fa96413ca380533784bd58

Message:

fix: ntNormalize (no negative DEN.)

File:

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

libpolys/polys/ext_fields/transext.cc

@@ -1239 +1239 @@
 void ntNormalize (number &a, const coeffs cf)
 {
-  definiteGcdCancellation(a, cf, FALSE);
+  if ((a!=NULL)&&(DEN(a)!=NULL))
+  {
+    definiteGcdCancellation(a, cf, FALSE);
+    if ((DEN(a)!=NULL)
+    &&(!n_GreaterZero(pGetCoeff(DEN(a)),ntRing->cf)))
+    {
+      NUM(a)=p_Neg(NUM(a),ntRing);
+      DEN(a)=p_Neg(DEN(a),ntRing);
+    }
+  }
   ntTest(a); // !!!!
 }