Changeset 6ad7e6 in git

Timestamp:

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

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

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); // !!!!
 }