bridge/class-master/depend/pari/src/basemath/base2.c
/* allow p = -1 from factorizations, avoid oo loop on p = 1 */
allow p = -1 from factorizations, avoid oo loop on p = 1
allow p = - 1 from factorizations avoid oo loop on p = 1
static long
safe_Z_pvalrem(GEN x, GEN p, GEN *z)
{
  if (is_pm1(p))
  {
    if (signe(p) > 0) return gvaluation(x,p); 
    *z = absi(x); return 1;
  }
  return Z_pvalrem(x, p, z);
}
static long safe_Z_pvalrem ( GEN x , GEN p , GEN * z ) { if ( is_pm1 ( p ) ) { if ( signe ( p ) > 0 ) return gvaluation ( x , p ) ; * z = absi ( x ) ; return 1 ; } return Z_pvalrem ( x , p , z ) ; }
allow p = -1 from factorizations, avoid oo loop on p = 1
allow p = - 1 from factorizations avoid oo loop on p = 1
/*error*/