source: git/libpolys/polys/templates/p_Delete__T.cc @ a44bcf

spielwiese
Last change on this file since a44bcf was 6ce030f, checked in by Oleksandr Motsak <motsak@…>, 12 years ago
removal of the $Id$ svn tag from everywhere NOTE: the git SHA1 may be used instead (only on special places) NOTE: the libraries Singular/LIB/*.lib still contain the marker due to our current use of svn
  • Property mode set to 100644
File size: 564 bytes
Line 
1/****************************************
2*  Computer Algebra System SINGULAR     *
3****************************************/
4/***************************************************************
5 *  File:    p_Delete__Template.cc
6 *  Purpose: template for p_Delete
7 *  Author:  obachman (Olaf Bachmann)
8 *  Created: 8/00
9 *******************************************************************/
10
11LINKAGE void p_Delete__T(poly* pp, const ring r)
12{
13  poly p = *pp;
14
15  while (p != NULL)
16  {
17    n_Delete__T(&(p->coef), r);
18    p = p_LmFreeAndNext(p, r);
19  }
20  *pp = NULL;
21}
22
Note: See TracBrowser for help on using the repository browser.