bridge/class-master/depend/pari/src/basemath/rootpol.c
/* returns a polynomial q in Z[i][x] keeping bit bits of p */
returns a polynomial q in Z[i][x] keeping bit bits of p
returns a polynomial q in Z [ i ] [ x ] keeping bit bits of p
static GEN
eval_rel_pol(GEN p, long bit)
{
  long i;
  for (i = 2; i < lg(p); i++)
    if (gequal0(gel(p,i))) gel(p,i) = gen_0; 
  return pol_to_gaussint(p, bit-gexpo(p)+1);
}
static GEN eval_rel_pol ( GEN p , long bit ) { long i ; for ( i = 2 ; i < lg ( p ) ; i ++ ) if ( gequal0 ( gel ( p , i ) ) ) gel ( p , i ) = gen_0 ; return pol_to_gaussint ( p , bit - gexpo ( p ) + 1 ) ; }
returns a polynomial q in Z[i][x] keeping bit bits of p
returns a polynomial q in Z [ i ] [ x ] keeping bit bits of p
/* bad behavior of gexpo */