bridge/class-master/depend/pari/src/basemath/Flx.c
/* Note: v is used _only_ for the t_INT. It must match
 * the variable of any t_POL coefficients. */
v is used _only_ for the t_INT. It must match
the variable of any t_POL coefficients.
v is used _only_ for the t_INT . It must match the variable of any t_POL coefficients .
GEN
ZXX_to_FlxX(GEN B, ulong p, long v)
{
  long lb=lg(B);
  long i;
  GEN b=cgetg(lb,t_POL);
  b[1]=evalsigne(1)|(((ulong)B[1])&VARNBITS);
  for (i=2; i<lb; i++)
    switch (typ(gel(B,i)))
    {
    case t_INT:
      gel(b,i) = Z_to_Flx(gel(B,i), p, evalvarn(v));
      break;
    case t_POL:
      gel(b,i) = ZX_to_Flx(gel(B,i), p);
      break;
    }
  return FlxX_renormalize(b, lb);
}
GEN ZXX_to_FlxX ( GEN B , ulong p , long v ) { long lb = lg ( B ) ; long i ; GEN b = cgetg ( lb , t_POL ) ; b [ 1 ] = evalsigne ( 1 ) | ( ( ( ulong ) B [ 1 ] ) & VARNBITS ) ; for ( i = 2 ; i < lb ; i ++ ) switch ( typ ( gel ( B , i ) ) ) { case t_INT : gel ( b , i ) = Z_to_Flx ( gel ( B , i ) , p , evalvarn ( v ) ) ; break ; case t_POL : gel ( b , i ) = ZX_to_Flx ( gel ( B , i ) , p ) ; break ; } return FlxX_renormalize ( b , lb ) ; }
Note: v is used _only_ for the t_INT.
Note : v is used _only_ for the t_INT .