source: git/kernel/p_Mult_nn__T.cc @ fe7f527

/****************************************
*  Computer Algebra System SINGULAR     *
****************************************/
/***************************************************************
 *  File:    p_Mult_n__Template.cc
 *  Purpose: template for p_Mult_n
 *  Author:  obachman (Olaf Bachmann)
 *  Created: 8/00
 *  Version: $Id: p_Mult_nn__T.cc,v 1.5 2006-02-28 17:50:33 wienand Exp $
 *******************************************************************/

/***************************************************************
 *
 *   Returns:  p*n
 *   Destroys: p
 *   Const:    n
 *
 ***************************************************************/
LINKAGE poly p_Mult_nn(poly p, const number n, const ring r)
{
  pAssume(!n_IsZero(n,r));
  p_Test(p, r);

  poly q = p;
  while (p != NULL)
  {
#ifndef HAVE_RING2TOM
    number nc = pGetCoeff(p);
    pSetCoeff0(p, n_Mult(n, nc, r));
    n_Delete(&nc, r);
    pIter(p);
#else
    number tmp = n_Mult(n, pGetCoeff(p), r);
    if (r->cring==0 || (r->cring ==1 && tmp != NULL))
    {
       p_SetCoeff(p, tmp, r);
       pIter(p);
    }
    else
    {
      n_Delete(&tmp, r);
      if (p == q) { q = pNext(q); }
      p = pNext(p);    // TODO Free Monom OLIVER
    }
#endif
  }
  p_Test(q, r);
  return q;
}