bridge/class-master/depend/pari/src/basemath/polarit2.c
/* y is a PADIC, x a rational number or an INTMOD */
y is a PADIC, x a rational number or an INTMOD
y is a PADIC x a rational number or an INTMOD
static GEN
padic_gcd(GEN x, GEN y)
{
  GEN p = gel(y,2);
  long v = gvaluation(x,p), w = valp(y);
  if (w < v) v = w;
  return powis(p, v);
}
static GEN padic_gcd ( GEN x , GEN y ) { GEN p = gel ( y , 2 ) ; long v = gvaluation ( x , p ) , w = valp ( y ) ; if ( w < v ) v = w ; return powis ( p , v ) ; }
y is a PADIC, x a rational number or an INTMOD
y is a PADIC x a rational number or an INTMOD