--- src/basemath/arith1.c
+++ src/basemath/arith1.c
@@ -3186,7 +3186,7 @@ GEN
Fp_order(GEN a, GEN o, GEN p) {
if (lgefint(p) == 3 && (!o || typ(o) == t_INT))
{
- ulong pp = p[2], oo = (o && lgefint(o)==3)? o[2]: pp-1;
+ ulong pp = p[2], oo = (o && lgefint(o)==3)? (ulong)(o[2]): pp-1;
return utoi( Fl_order(umodiu(a, pp), oo, pp) );
}
return gen_order(a, o, (void*)p, &Fp_star);
--- src/basemath/hyperell.c
+++ src/basemath/hyperell.c
@@ -712,7 +712,7 @@ Flx_genus2charpoly_naive(GEN H, ulong p)
{
GEN r2 = gel(V, n+1);
c += uel(r2,2) ?
- (uel(r2,1) ? k[1+Fl2_norm_pre(r2, D, p, pi)]: e)
+ (uel(r2,1) ? (ulong)(k[1+Fl2_norm_pre(r2, D, p, pi)]): e)
: !!uel(r2,1);
if (i == p-1) break;
V = Fl2V_next(V, p);