bridge/class-master/depend/pari/src/basemath/galconj.c
/* Check if the integer P seen as a p-adic number is close to an integer less
 * than td->borne in absolute value */
Check if the integer P seen as a p-adic number is close to an integer less
than td->borne in absolute value
Check if the integer P seen as a p - adic number is close to an integer less than td - > borne in absolute value
static long
padicisint(GEN P, struct galois_test *td)
{
  pari_sp ltop = avma;
  GEN U  = modii(P, td->ladic);
  long r = cmpii(U, td->borne) <= 0 || cmpii(U, td->lborne) >= 0;
  avma = ltop; return r;
}
static long padicisint ( GEN P , struct galois_test * td ) { pari_sp ltop = avma ; GEN U = modii ( P , td -> ladic ) ; long r = cmpii ( U , td -> borne ) <= 0 || cmpii ( U , td -> lborne ) >= 0 ; avma = ltop ; return r ; }
Check if the integer P seen as a p-adic number is close to an integer less
 than td->borne in absolute value
Check if the integer P seen as a p - adic number is close to an integer less than td - > borne in absolute value