bridge/class-master/depend/pari/src/kernel/gmp/mp.c
/* assume a initialized by setloop. Do a++ */
assume a initialized by setloop. Do a
assume a initialized by setloop . Do a
GEN
incloop(GEN a)
{
  switch(signe(a))
  {
    case 0:
      a[0]=evaltyp(t_INT) | _evallg(3);
      a[1]=evalsigne(1) | evallgefint(3);
      a[2]=1; return a;
    case -1: return incneg(a);
    default: return incpos(a);
  }
}
GEN incloop ( GEN a ) { switch ( signe ( a ) ) { case 0 : a [ 0 ] = evaltyp ( t_INT ) | _evallg ( 3 ) ; a [ 1 ] = evalsigne ( 1 ) | evallgefint ( 3 ) ; a [ 2 ] = 1 ; return a ; case -1 : return incneg ( a ) ; default : return incpos ( a ) ; } }
assume a initialized by setloop.
assume a initialized by setloop .