source: git/kernel/p_Delete__T.cc @ f3a8c2e

spielwiese
Last change on this file since f3a8c2e 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: 636 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 *  Version: $Id: p_Delete__T.cc,v 1.1.1.1 2003-10-06 12:15:59 Singular Exp $
10 *******************************************************************/
11
12LINKAGE void p_Delete(poly* pp, const ring r)
13{
14  poly p = *pp;
15
16  while (p != NULL)
17  {
18    n_Delete(&(p->coef), r);
19    p = p_LmFreeAndNext(p, r);
20  }
21  *pp = NULL;
22}
23
Note: See TracBrowser for help on using the repository browser.