Changeset 20f29bb in git for libpolys/polys/ext_fields

Timestamp:

Apr 24, 2015, 2:06:33 PM (9 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

4442f24da6fca98672573b143a53742e82d5b9c2

Parents:

769a27f375c14dbe7cac70321db6bb76ef18fb07

Message:

conversion of bigint to extension fields

Location:

libpolys/polys/ext_fields

Files:

• algext.cc (modified) (2 diffs)
• transext.cc (modified) (1 diff)

libpolys/polys/ext_fields/algext.cc

@@ -1054 +1054 @@
     if (nCoeff_is_Zp(src) && nCoeff_is_Q(bDst))
       return naMapP0;                            /// Z/p   -->  Q(a)
-    if (nCoeff_is_Q(src) && nCoeff_is_Zp(bDst))
+    if (nCoeff_is_Q_or_BI(src) && nCoeff_is_Zp(bDst))
       return naMap0P;                            /// Q      --> Z/p(a)
     if ((src->rep==n_rep_gap_gmp) && nCoeff_is_Zp(bDst))
@@ -1066 +1066 @@
   if (h != 1) return NULL;
   if ((!nCoeff_is_Zp(bDst)) && (!nCoeff_is_Q(bDst))) return NULL;
-  if ((!nCoeff_is_Zp(bSrc)) && (!nCoeff_is_Q(bSrc))) return NULL;
+  if ((!nCoeff_is_Zp(bSrc)) && (!nCoeff_is_Q_or_BI(bSrc))) return NULL;
 
   nMapFunc nMap=n_SetMap(src->extRing->cf,dst->extRing->cf);

libpolys/polys/ext_fields/transext.cc

@@ -1962 +1962 @@
     if (nCoeff_is_Zp(src) && nCoeff_is_Q(bDst))
       return ntMapP0;                                 /// Z/p     -->  Q(T)
-    if (nCoeff_is_Q(src) && nCoeff_is_Zp(bDst))
+    if (nCoeff_is_Q_or_BI(src) && nCoeff_is_Zp(bDst))
       return ntMap0P;                                 /// Q       --> Z/p(T)
     if (nCoeff_is_Zp(src) && nCoeff_is_Zp(bDst))