Changeset c8e030 in git for libpolys/polys

Timestamp:

Feb 8, 2012, 3:48:14 PM (12 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

cc3240c506fdb572293019718b6e949f582d6108

Parents:

e71b679a2b45108ca67104be680aeeab6fb0b2b5

git-author:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2012-02-08 15:48:14+01:00

git-committer:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2012-02-08 15:49:55+01:00

Message:

fix: normalization while mapping

File:

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

libpolys/polys/ext_fields/transext.cc

@@ -1046 +1046 @@
   assume(src == dst->extRing->cf);
   poly p = p_One(dst->extRing);
-  p_SetCoeff(p, n_Copy(a, src), dst->extRing);
+  number na=n_Copy(a, src);
+  n_Normalize(na, src);
+  p_SetCoeff(p, na, dst->extRing);
   fraction f = (fraction)omAlloc0Bin(fractionObjectBin);
   NUM(f) = p; DEN(f) = NULL; COM(f) = 0;
@@ -1233 +1235 @@
   return NULL;                                 /// default
 }
+#if 0
+nMapFunc ntSetMap_T(const coeffs src, const coeffs dst)
+{
+  nMapFunc n=ntSetMap(src,dst);
+  if (n==ntCopyAlg) printf("n=ntCopyAlg\n");
+  else if (n==ntCopyMap) printf("n=ntCopyMap\n");
+  else if (n==ntMapUP) printf("n=ntMapUP\n");
+  else if (n==ntMap0P) printf("n=ntMap0P\n");
+  else if (n==ntMapP0) printf("n=ntMapP0\n");
+  else if (n==ntMap00) printf("n=ntMap00\n");
+  else if (n==NULL) printf("n=NULL\n");
+  else printf("n=?\n");
+  return n;
+}
+#endif
 
 void ntKillChar(coeffs cf)