p_ShallowCopyDelete__T.cc File Reference

Go to the source code of this file.

Functions
LINKAGE poly	p_ShallowCopyDelete__T (poly s_p, const ring r, omBin d_bin)

Function Documentation

p_ShallowCopyDelete__T()

LINKAGE poly p_ShallowCopyDelete__T	(	poly	s_p,
		const ring	r,
		omBin	d_bin
	)

Definition at line 17 of file p_ShallowCopyDelete__T.cc.

{
  spolyrec dp;
  poly d_p = &dp;
  poly h;
 
  DECLARE_LENGTH(const unsigned long length = r->ExpL_Size);
 
  while (s_p != NULL)
  {
    p_AllocBin(d_p->next, d_bin, r);
    pIter(d_p);
    pSetCoeff0(d_p, pGetCoeff(s_p));
    h = s_p;
    s_p =  pNext(s_p);
    p_MemCopy__T(d_p->exp, h->exp, length);
    p_FreeBinAddr(h, r);
  }
  pNext(d_p) = NULL;
  return dp.next;
}