Changeset 603ac7a in git for libpolys/polys/ext_fields/transext.cc

Timestamp:

Feb 22, 2013, 10:36:48 AM (10 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '2234726c50d679d6664181a5c72f75a6fd64a787')

Children:

21b9ef8e44d99ebb4e5d2eaf4fdf54444c59cc6b

Parents:

2e2c67897e034b7ffa5b8a0dda72431cff944d4a

Message:

fix: add P_Normalize to definiteGcdCancellation/ntNormalize

File:

• libpolys/polys/ext_fields/transext.cc (modified) (3 diffs)

libpolys/polys/ext_fields/transext.cc

@@ -1091 +1091 @@
     p_Delete(&DEN(f), ntRing); DEN(f) = NULL;
     COM(f) = 0;
-  } else
+  }
+  else
   {
     if (COM(f) > BOUND_COMPLEXITY)
@@ -1105 +1106 @@
   }
 
-
-  ntTest(a); // !!!!????
+  ntTest(a);
 }
 
@@ -1117 +1117 @@
   fraction f = (fraction)a;
 
+  if (IS0(a)) return;
+  if (NUM(f)!=NULL) p_Normalize(NUM(f), ntRing);
+  if (DEN(f)!=NULL) p_Normalize(DEN(f), ntRing);
   if (!simpleTestsHaveAlreadyBeenPerformed)
   {
-    if (IS0(a)) return;
     if (DENIS1(f) || NUMIS1(f)) { COM(f) = 0; return; }