Changeset c5f67b5 in git


Ignore:
Timestamp:
Feb 15, 2006, 3:08:17 PM (18 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')
Children:
b8214b7bb9bf2d4795e62620d8906e5ec1553f6e
Parents:
88648307781de5d8fc16d31207deb2e810e547ba
Message:
*hannes: HAVE_RING2TOM


git-svn-id: file:///usr/local/Singular/svn/trunk@8947 2c84dea3-7e68-4137-9b89-c4e89433aadc
Location:
kernel
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • kernel/kstd2.cc

    r886483 rc5f67b5  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: kstd2.cc,v 1.9 2006-01-22 04:29:37 wienand Exp $ */
     4/* $Id: kstd2.cc,v 1.10 2006-02-15 14:08:17 Singular Exp $ */
    55/*
    66*  ABSTRACT -  Kernel: alg. of Buchberger
    … …  
    181181   for (int i = 2; i < arg; i++)
    182182   {
    183      tmp = tmp * i;
     183     tmp *= i;
    184184   }
    185185   return tmp;
    … …  
    580580{
    581581  if (strat->tl<0) return 1;
     582  //if (h->GetLmTailRing()==NULL) return 0; // HS: SHOULD NOT BE NEEDED!
    582583  assume(h->FDeg == h->pFDeg());
    583584
    … …  
    738739  P.bucket = kBucketCreate(currRing);
    739740  kBucketInit(P.bucket,P.p,pLength(P.p));
     741  kbTest(P.bucket);
    740742  loop
    741743  {
    … …  
    764766      if (rIsPluralRing(currRing))
    765767      {
    766             number coef;
     768        number coef;
    767769        nc_kBucketPolyRed(P.bucket,strat->S[j],&coef);
    768             nDelete(&coef);
     770        nDelete(&coef);
    769771      }
    770772      else
    … …  
    781783        return NULL;
    782784      }
     785      kbTest(P.bucket);
    783786      P.p=h;
    784787      P.t_p=NULL;

  • kernel/kutil.cc

    r886483 rc5f67b5  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: kutil.cc,v 1.17 2006-02-15 12:59:03 Singular Exp $ */
     4/* $Id: kutil.cc,v 1.18 2006-02-15 14:08:17 Singular Exp $ */
    55/*
    66* ABSTRACT: kernel: utils for kStd
    … …  
    15951595}
    15961596
     1597#ifdef HAVE_RING2TOM
    15971598long twoPow(long arg)
    15981599{
    15991600  return 1L << arg;
    16001601}
     1602#endif
    16011603
    16021604/*2
Note: See TracChangeset for help on using the changeset viewer.