bridge/class-master/depend/pari/src/basemath/polarit2.c
/* tx = t_RFRAC, y considered as constant */
tx = t_RFRAC, y considered as constant
tx = t_RFRAC y considered as constant
static GEN
cont_gcd_rfrac(GEN x, GEN y)
{
  pari_sp av = avma;
  GEN cx; x = primitive_part(x, &cx);
  if (typ(x) != t_RFRAC) x = cont_gcd_pol_i(x, y);
  else x = gred_rfrac_simple(ggcd(cx? cx: gen_1, y), gel(x,2));
  return gerepileupto(av, x);
}
static GEN cont_gcd_rfrac ( GEN x , GEN y ) { pari_sp av = avma ; GEN cx ; x = primitive_part ( x , & cx ) ; if ( typ ( x ) != t_RFRAC ) x = cont_gcd_pol_i ( x , y ) ; else x = gred_rfrac_simple ( ggcd ( cx ? cx : gen_1 , y ) , gel ( x , 2 ) ) ; return gerepileupto ( av , x ) ; }
tx = t_RFRAC, y considered as constant
tx = t_RFRAC y considered as constant
/* e.g. Mod(1,2) / (2*y+1) => primitive_part = Mod(1,2)*y^0 */