bridge/class-master/depend/pari/src/kernel/gmp/mp.c
/* Normalize a non-negative integer */
Normalize a non-negative integer
Normalize a non - negative integer
GEN
int_normalize(GEN x, long known_zero_words)
{
  long i =  lgefint(x) - 1 - known_zero_words;
  for ( ; i > 1; i--)
    if (x[i]) { setlgefint(x, i+1); return x; }
  x[1] = evalsigne(0) | evallgefint(2); return x;
}
GEN int_normalize ( GEN x , long known_zero_words ) { long i = lgefint ( x ) - 1 - known_zero_words ; for ( ; i > 1 ; i -- ) if ( x [ i ] ) { setlgefint ( x , i + 1 ) ; return x ; } x [ 1 ] = evalsigne ( 0 ) | evallgefint ( 2 ) ; return x ; }
Normalize a non-negative integer
Normalize a non - negative integer