long compare(const RR& a, const RR& b) { NTL_TLS_LOCAL(RR, t); SubPrec(t, a, b, 1); return sign(t); }
long compare(const RR& a, const RR& b) { static RR t; SubPrec(t, a, b, 1); return sign(t); }
void conv(quad_float& z, const RR& a) { long old_p; static RR a_hi, a_lo; old_p = RR::prec; ConvPrec(a_hi, a, NTL_DOUBLE_PRECISION); // high order bits SubPrec(a_lo, a, a_hi, NTL_DOUBLE_PRECISION); // low order bits z = to_quad_float(a_hi.x)*power2_quad_float(a_hi.e) + to_quad_float(a_lo.x)*power2_quad_float(a_lo.e); }