p_Mult_mm__T.cc File Reference

Go to the source code of this file.

Functions
LINKAGE poly	p_Mult_mm__T (poly p, const poly m, const ring ri)

Function Documentation

p_Mult_mm__T()

LINKAGE poly p_Mult_mm__T	(	poly	p,
		const poly	m,
		const ring	ri )

Definition at line 18 of file p_Mult_mm__T.cc.

{
  p_Test(p, ri);
  p_LmTest(m, ri);
  pAssume(m != NULL);
  assume(p!=NULL);
  poly q = p;
  number ln = pGetCoeff(m);
  number pn;
  DECLARE_LENGTH(const unsigned long length = ri->ExpL_Size);
  const unsigned long* m_e = m->exp;
  pAssume(!n_IsZero__T(ln,ri->cf));
 
#ifdef HAVE_ZERODIVISORS
  poly before = p;
#endif
  while (p != NULL)
  {
    pn = pGetCoeff(p);
    number tmp = n_Mult__T(ln, pn, ri->cf);
#ifdef HAVE_ZERODIVISORS
    if (n_IsZero__T(tmp, ri->cf))
    {
      n_Delete__T(&tmp, ri->cf);
      if (before == p)
      {
        p = p_LmDeleteAndNext(p, ri);
        before = p;
        q = p;
      }
      else
      {
        p = p_LmDeleteAndNext(p, ri);
        pNext(before) = p;
      }
    }
    else
#endif
    {
      pSetCoeff0(p, tmp);
      n_Delete__T(&pn, ri->cf);
      p_MemAdd__T(p->exp, m_e, length);
      p_MemAddAdjust__T(p, ri);
#ifdef HAVE_ZERODIVISORS
      before = p;
#endif
      p = pNext(p);
    }
  }
  p_Test(q, ri);
  return q;
}