bridge/class-master/depend/pari/src/basemath/rootpol.c
/* like mygprec but keep at least the same precision as before */
like mygprec but keep at least the same precision as before
like mygprec but keep at least the same precision as before
static GEN
mygprec_special(GEN x, long bit)
{
  long lx, i, e, prec;
  GEN y;
  if (bit < 0) bit = 0; 
  e = gexpo(x) - bit;
  prec = nbits2prec(bit);
  switch(typ(x))
  {
    case t_POL:
      y = cgetg_copy(x, &lx); y[1] = x[1];
      for (i=2; i<lx; i++) gel(y,i) = mygprecrc_special(gel(x,i),prec,e);
      break;
    default: y = mygprecrc_special(x,prec,e);
  }
  return y;
}
static GEN mygprec_special ( GEN x , long bit ) { long lx , i , e , prec ; GEN y ; if ( bit < 0 ) bit = 0 ; e = gexpo ( x ) - bit ; prec = nbits2prec ( bit ) ; switch ( typ ( x ) ) { case t_POL : y = cgetg_copy ( x , & lx ) ; y [ 1 ] = x [ 1 ] ; for ( i = 2 ; i < lx ; i ++ ) gel ( y , i ) = mygprecrc_special ( gel ( x , i ) , prec , e ) ; break ; default : y = mygprecrc_special ( x , prec , e ) ; } return y ; }
like mygprec but keep at least the same precision as before
like mygprec but keep at least the same precision as before
/* should not happen */