Changeset e406de in git for Singular/sparsmat.cc


Ignore:
Timestamp:
Mar 15, 1999, 5:55:42 PM (25 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '2fa36c576e6a4ddbb1093b43c7f8e9835e17e52a')
Children:
d017b1ae6b39a6a201eaba488934eb88c33e9198
Parents:
bb354a914c634e35f8ef4d015eee5a1607c2d443
Message:
* hannes: fixed use of pNew/pInit


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

Legend:

Unmodified
Added
Removed

  • Singular/sparsmat.cc

    rbb354a re406de  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: sparsmat.cc,v 1.4 1999-03-03 16:58:52 Singular Exp $ */
     4/* $Id: sparsmat.cc,v 1.5 1999-03-15 16:55:42 Singular Exp $ */
    55
    66/*
    … …  
    13641364    return;
    13651365  }
    1366   dummy = pNew();
     1366  dummy = pInit();
    13671367  do
    13681368  {
    … …  
    13781378    do
    13791379    {
    1380       h = pNext(h) = pNew();
    1381       pSetComp(h,0);
     1380      h = pNext(h) = pInit();
     1381      //pSetComp(h,0);
    13821382      for (i=pVariables; i; i--)
    13831383        pSetExp(h,i,pGetExp(a,i)+pGetExp(t,i));
    … …  
    14271427  }
    14281428  res = NULL;
    1429   e = pNew();
     1429  e = pInit();
    14301430  lead = FALSE;
    14311431  while (!lead)
    … …  
    15051505{
    15061506  const number x = pGetCoeff(b);
    1507   poly tail = pNext(b), e = pNew();
     1507  poly tail = pNext(b), e = pInit();
    15081508  poly h;
    15091509  number y, yn;
    … …  
    15591559  int i;
    15601560
    1561   h = res = pNew();
     1561  h = res = pInit();
    15621562  loop
    15631563  {
    1564     pSetComp(h,0);
     1564    //pSetComp(h,0);
    15651565    for (i=pVariables; i; i--)
    15661566      pSetExp(h,i,pGetExp(e,i)+pGetExp(t,i));
    … …  
    15731573      return res;
    15741574    }
    1575     h = pNext(h) = pNew();
     1575    h = pNext(h) = pInit();
    15761576  }
    15771577}
    … …  
    15961596  EXPONENT_TYPE w;
    15971597
    1598   r = h = res = pNew();
     1598  r = h = res = pInit();
    15991599  loop
    16001600  {
    … …  
    16091609    if (i == 0)
    16101610    {
    1611       pSetComp(h,0);
     1611      //pSetComp(h,0);
    16121612      pSetm(h);
    16131613      pSetCoeff0(h,nMult(y,x));
    … …  
    16181618      }
    16191619      r = h;
    1620       h = pNext(h) = pNew();
     1620      h = pNext(h) = pInit();
    16211621    }
    16221622    else if (t == NULL)
Note: See TracChangeset for help on using the changeset viewer.