bridge/class-master/depend/pari/src/kernel/gmp/mp.c
/* assume a > 0, initialized by setloop. Do a++ */
assume a > 0, initialized by setloop. Do a
assume a > 0 initialized by setloop . Do a
static GEN
incpos(GEN a)
{
  long i, l = lgefint(a);
  for (i=2; i<l; i++)
    if (++uel(a,i)) return a;
  a[l] = 1; l++;
  a[0]=evaltyp(t_INT) | _evallg(l);
  a[1]=evalsigne(1) | evallgefint(l);
  return a;
}
static GEN incpos ( GEN a ) { long i , l = lgefint ( a ) ; for ( i = 2 ; i < l ; i ++ ) if ( ++ uel ( a , i ) ) return a ; a [ l ] = 1 ; l ++ ; a [ 0 ] = evaltyp ( t_INT ) | _evallg ( l ) ; a [ 1 ] = evalsigne ( 1 ) | evallgefint ( l ) ; return a ; }
assume a > 0, initialized by setloop.
assume a > 0 initialized by setloop .