bridge/class-master/depend/pari/src/basemath/trans1.c
/* convert INT or FRAC to REAL, which is later reduced mod 2Pi : avoid
 * cancellation */
convert INT or FRAC to REAL, which is later reduced mod 2Pi : avoid
cancellation
convert INT or FRAC to REAL which is later reduced mod 2Pi : avoid cancellation
static GEN
tofp_safe(GEN x, long prec)
{
  return (typ(x) == t_INT || gexpo(x) > 0)? gadd(x, real_0(prec))
                                          : fractor(x, prec);
}
static GEN tofp_safe ( GEN x , long prec ) { return ( typ ( x ) == t_INT || gexpo ( x ) > 0 ) ? gadd ( x , real_0 ( prec ) ) : fractor ( x , prec ) ; }
convert INT or FRAC to REAL, which is later reduced mod 2Pi : avoid
 cancellation
convert INT or FRAC to REAL which is later reduced mod 2Pi : avoid cancellation