bridge/class-master/depend/pari/src/basemath/gen1.c
/* fill in coefficients of t_SER z from coeffs of t_POL y */
fill in coefficients of t_SER z from coeffs of t_POL y
fill in coefficients of t_SER z from coeffs of t_POL y
static GEN
fill_ser(GEN z, GEN y)
{
  long i, lx = lg(z), ly = lg(y);
  if (ly >= lx) {
    for (i = 2; i < lx; i++) gel(z,i) = gel(y,i);
  } else {
    for (i = 2; i < ly; i++) gel(z,i) = gel(y,i);
    for (     ; i < lx; i++) gel(z,i) = gen_0;
  }
  return normalize(z);
}
static GEN fill_ser ( GEN z , GEN y ) { long i , lx = lg ( z ) , ly = lg ( y ) ; if ( ly >= lx ) { for ( i = 2 ; i < lx ; i ++ ) gel ( z , i ) = gel ( y , i ) ; } else { for ( i = 2 ; i < ly ; i ++ ) gel ( z , i ) = gel ( y , i ) ; for ( ; i < lx ; i ++ ) gel ( z , i ) = gen_0 ; } return normalize ( z ) ; }
fill in coefficients of t_SER z from coeffs of t_POL y
fill in coefficients of t_SER z from coeffs of t_POL y