lower_content()

void M2::RingQQ::lower_content ( ring_elem & c, const ring_elem g ) const

inlinevirtual

Reimplemented from Ring.

Definition at line 563 of file aring-glue.hpp.

  {
    if (is_zero(c))
      {
        c = g;
        return;
      }
    mpq_srcptr a = MPQ_VAL(c);
    mpq_srcptr b = MPQ_VAL(g);
    int sa = mpq_sgn(a);
    mpq_ptr result = getmemstructtype(mpq_ptr);
    mpq_init(result);
 
    mpz_gcd(mpq_numref(result), mpq_numref(a), mpq_numref(b));
    mpz_lcm(mpq_denref(result), mpq_denref(a), mpq_denref(b));
    if (sa != mpq_sgn(result)) mpq_neg(result, result);
    mpz_reallocate_limbs(mpq_numref(result));
    mpz_reallocate_limbs(mpq_denref(result));
    c = ring_elem(result);
  }

References getmemstructtype, M2::ConcreteRing< ARingQQ >::is_zero(), MPQ_VAL, mpz_reallocate_limbs(), and result().