Changeset 512a2b in git for Singular/kspoly.cc


Ignore:
Timestamp:
Sep 18, 2000, 11:19:39 AM (24 years ago)
Author:
Olaf Bachmann <obachman@…>
Branches:
(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
Children:
d1655e92ca71fb37d1b57af88efdff5b65b8988b
Parents:
f3398d316400fe1ee1677fc397cacb80566ac664
Message:
p_polys.h


git-svn-id: file:///usr/local/Singular/svn/trunk@4606 2c84dea3-7e68-4137-9b89-c4e89433aadc
File:
1 edited

Legend:

Unmodified
Added
Removed

  • Singular/kspoly.cc

    rf3398d r512a2b  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: kspoly.cc,v 1.7 2000-09-12 16:00:58 obachman Exp $ */
     4/* $Id: kspoly.cc,v 1.8 2000-09-18 09:19:07 obachman Exp $ */
    55/*
    66*  ABSTRACT -  Routines for Spoly creation and reductions
    … …  
    1010#include "polys.h"
    1111#include "numbers.h"
     12#include "p_Procs.h"
    1213
    1314// Define to enable tests in this file
    … …  
    4748  if (a2==NULL)
    4849  {
    49     pDelete1(&lm);
     50    pDeleteLm(&lm);
    5051    PR->p = p1;
    5152    if (coef != NULL) *coef = nInit(1);
    … …  
    7475  int dummy;
    7576  PR->p = currRing->p_Procs->p_Minus_mm_Mult_qq(p1, lm, a2,
    76                                                  dummy, spNoether, currRing);
    77 
    78   pDelete1(&lm);
     77                                                dummy, spNoether, currRing);
     78
     79  pDeleteLm(&lm);
    7980}
    8081
    … …  
    148149 
    149150  // Clean-up time
    150   pDelete1(&m1);
    151   pDelete1(&m2);
     151  pDeleteLm(&m1);
     152  pDeleteLm(&m2);
    152153 
    153154  if (co != 0)
    … …  
    373374      if(cm==1)
    374375      {
    375         pFree(m2);
     376        pLmFree(m2);
    376377        nNew(&(pGetCoeff(m1)));
    377378        return m1;
    … …  
    379380      else
    380381      {
    381         pFree(m1);
     382        pLmFree(m1);
    382383        nNew(&(pGetCoeff(m2)));
    383384        return m2;
    … …  
    391392    if (!equal)
    392393    {
    393       pFree(m2);
     394      pLmFree(m2);
    394395      nNew(&(pGetCoeff(m1)));
    395396      return m1;
    … …  
    399400    if (a2==NULL)
    400401    {
    401       pFree(m2);
     402      pLmFree(m2);
    402403      if (a1==NULL)
    403404      {
    404         pFree(m1);
     405        pLmFree(m1);
    405406        return NULL;
    406407      }
    … …  
    409410    if (a1==NULL)
    410411    {
    411       pFree(m1);
     412      pLmFree(m1);
    412413      goto x2;
    413414    }
Note: See TracChangeset for help on using the changeset viewer.