fix: p_Power, p_TewoMonPower for exp > char(k)

Singular · Mar 27, 2012 · 131ab78 · 131ab78
1 parent 8544050
commit 131ab78
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/libpolys/polys/monomials/p_polys.cc b/libpolys/polys/monomials/p_polys.cc
@@ -2004,8 +2004,7 @@ poly p_Power(poly p, int i, const ring r)
             return p_Pow(p,i,r);
           if ((char_p==0) || (i<=char_p))
             return p_TwoMonPower(p,i,r);
-          poly p_p=p_TwoMonPower(p_Copy(p,r),(i/char_p)*char_p,r);
-          return p_Mult_q(p_Power(p,i % char_p,r),p_p,r);
+          return p_Pow(p,i,r);
         }
       /*end default:*/
     }