source: git/kernel/p_ShallowCopyDelete__T.cc @ 171950

spielwiese
Last change on this file since 171950 was 35aab3, checked in by Hans Schönemann <hannes@…>, 20 years ago
This commit was generated by cvs2svn to compensate for changes in r6879, which included commits to RCS files with non-trunk default branches. git-svn-id: file:///usr/local/Singular/svn/trunk@6880 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 1.1 KB
Line 
1/****************************************
2*  Computer Algebra System SINGULAR     *
3****************************************/
4/***************************************************************
5 *  File:    p_ShallowCopyDelete__Template.cc
6 *  Purpose: template for p_ShallowCopyDelete
7 *  Author:  obachman (Olaf Bachmann)
8 *  Created: 8/00
9 *  Version: $Id: p_ShallowCopyDelete__T.cc,v 1.1.1.1 2003-10-06 12:16:00 Singular Exp $
10 *******************************************************************/
11
12/***************************************************************
13 *
14 * Destroys: p
15 * Assumes:  Monoms of p are from
16 * Returns:
17 ***************************************************************/
18LINKAGE poly p_ShallowCopyDelete(poly s_p, const ring r, omBin d_bin)
19{
20  spolyrec dp;
21  poly d_p = &dp;
22  unsigned long* s_e;
23  poly h;
24
25  DECLARE_LENGTH(const unsigned long length = r->ExpL_Size);
26
27  while (s_p != NULL)
28  {
29    p_AllocBin(d_p->next, d_bin, r);
30    pIter(d_p);
31    pSetCoeff0(d_p, pGetCoeff(s_p));
32    h = s_p;
33    s_p =  pNext(s_p);
34    p_MemCopy(d_p->exp, h->exp, length);
35    p_FreeBinAddr(h, r);
36  }
37  pNext(d_p) = NULL;
38  return dp.next;
39}
40
Note: See TracBrowser for help on using the repository browser.