Changeset dc42daf in git for kernel/kInline.h

Timestamp:

Feb 21, 2013, 7:13:50 PM (10 years ago)

Author:

Claus Fieker <fieker@…>

Branches:

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

Children:

5693d74c7e74fb28bc22148699aebb6524ded48c

Parents:

892dd80edda39f846824ca997ef834ad6d19f748

git-author:

Claus Fieker <fieker@erbsenstein.(none)>2013-02-21 19:13:50+01:00

git-committer:

Claus Fieker <fieker@erbsenstein.(none)>2013-02-22 16:40:29+01:00

Message:

an attempt to introduce better normalization for polynomials over number fields. Seems to work well in selected examples...

File:

• kernel/kInline.h (modified) (1 diff)

kernel/kInline.h

@@ -456 +456 @@
     {
       if (t_p != NULL)
-        {
-          p_Cleardenom(t_p, tailRing);
-          pSetCoeff0(p, pGetCoeff(t_p));
-        }
+        {
+          p_ProjectiveUnique(t_p, tailRing);
+          pSetCoeff0(p, pGetCoeff(t_p));
+        }
       else
-        {
-          p_Cleardenom(p, currRing);
-        }
+        {
+#ifdef HAVE_RATGRING
+          p_ProjectiveUnique(p, currRing);
+#else
+          p_ProjectiveUnique(p, currRing);
+#endif
+        }
     }
 }