Changeset 66a672 in git


Ignore:
Timestamp:
Oct 19, 1999, 1:41:40 PM (25 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b52fc4b2495505785981d640dcf7eb3e456778ef')
Children:
d2b6cf082728946a490177ca3d6aba074109fe5c
Parents:
e771fa766e0f49356f9f2da046e1e17247067dfe
Message:
* hannes: added missing pSetmComp's


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

Legend:

Unmodified
Added
Removed
  • Singular/ideals.cc

    re771fa r66a672  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ideals.cc,v 1.62 1999-10-18 17:56:20 siebert Exp $ */
     4/* $Id: ideals.cc,v 1.63 1999-10-19 11:41:40 Singular Exp $ */
    55/*
    66* ABSTRACT - all basic methods to manipulate ideals
     
    10741074    h->m[j] = pOne();
    10751075    pSetComp(h->m[j],j+1);
     1076    pSetmComp(h->m[j]);
    10761077  }
    10771078  return h;
     
    11201121      q = pOne();
    11211122      pSetComp(q,i+1+length);
     1123      pSetmComp(q);
    11221124      if (flength==0) pShift(&(temp->m[k]),1);
    11231125      p = temp->m[k];
    1124       while (pNext(p)) pIter(p);
     1126      while (pNext(p)!=NULL) pIter(p);
    11251127      pNext(p) = q;
    11261128      k++;
     
    11661168        k = pGetComp(p)-1-length;
    11671169        pSetComp(p,0);
     1170        pSetmComp(p);
    11681171        result->m[j] = pAdd(result->m[j],pMult(pCopy(first->m[k]),p));
    11691172        p = q;
     
    16401643        j = pGetComp(p);
    16411644        pSetComp(p,(*reord)[j]);
     1645        pSetmComp(p);
    16421646        pIter(p);
    16431647      }
     
    17121716          t=pGetComp(p);
    17131717          pSetComp(p,0);
     1718          pSetmComp(p);
    17141719          MATELEM(*ma,t-k,i+2) = pAdd(MATELEM(*ma,t-k,i+2),p);
    17151720        }
     
    19511956  }
    19521957  kmax = j*k+1;
     1958  pSetSyzComp(kmax-1);
    19531959  p = pOne();
    19541960  pSetComp(p,kmax);
    1955   pSetSyzComp(kmax-1);
     1961  pSetmComp(p);
    19561962  q = pAdd(q,p);
    19571963  h4->m[0] = q;
     
    28332839      cp = pGetComp(h);
    28342840      pSetComp(h,0);
     2841      pSetmComp(h);
    28352842#ifdef TEST
    28362843      if (cp>mod->rank)
     
    28812888      {
    28822889        pSetComp(h,0);
     2890        pSetmComp(h);
    28832891        MATELEM(result,cp,i+1) = pAdd(MATELEM(result,cp,i+1),h);
    28842892      }
     
    31023110    q = pOne();
    31033111    pSetComp(q,i+1+length);
     3112    pSetmComp(q);
    31043113    if(temp->m[i]!=NULL)
    31053114    {
     
    34313440        {
    34323441          pSetComp(p,(*indexMap)[pGetComp(p)]);
     3442          pSetmComp(p);
    34333443          while ((pNext(p)!=NULL) && ((*toKill)[pGetComp(pNext(p))]==1))
    34343444            pDelete1(&pNext(p));
    34353445          pIter(p);
    34363446        }
    3437         if (p!=NULL) pSetComp(p,(*indexMap)[pGetComp(p)]);
     3447        if (p!=NULL)
     3448        {
     3449          pSetComp(p,(*indexMap)[pGetComp(p)]);
     3450          pSetmComp(p);
     3451        }
    34383452      }
    34393453      idSkipZeroes(res);
     
    34673481      int co=pGetComp(h)-1;
    34683482      pSetComp(h,i);
     3483      pSetmComp(h);
    34693484      b->m[co]=pAdd(b->m[co],h);
    34703485      pIter(p);
Note: See TracChangeset for help on using the changeset viewer.