bridge/class-master/depend/pari/src/basemath/gen1.c
/* y PADIC, x + y by converting x to padic */
y PADIC, x + y by converting x to padic
y PADIC x + y by converting x to padic
static GEN
addTp(GEN x, GEN y) { pari_sp av = avma; GEN z;
  if (!valp(y)) z = cvtop2(x,y);
  else {
    long l = signe(gel(y,4))? valp(y) + precp(y): valp(y);
    z  = cvtop(x, gel(y,2), l);
  }
  return gerepileupto(av, addsub_pp(z, y, addii));
}
static GEN addTp ( GEN x , GEN y ) { pari_sp av = avma ; GEN z ; if ( ! valp ( y ) ) z = cvtop2 ( x , y ) ; else { long l = signe ( gel ( y , 4 ) ) ? valp ( y ) + precp ( y ) : valp ( y ) ; z = cvtop ( x , gel ( y , 2 ) , l ) ; } return gerepileupto ( av , addsub_pp ( z , y , addii ) ) ; }
y PADIC, x + y by converting x to padic
y PADIC x + y by converting x to padic