Changeset 59b9fdb in git


Ignore:
Timestamp:
Mar 8, 2018, 5:08:15 PM (5 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a657104b677b4c461d018cbf3204d72d34ad66a9')
Children:
239d735990d1f7ad5e27ad2ce28f8305525c418d9a03c2dc812de8eeadb5ea846b85d1b21c1d247f
Parents:
0d5959cf283bcd6d174bfef558dd97713320de46
Message:
opt: tgb.cc, kFindIn..
Location:
kernel/GBEngine
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • kernel/GBEngine/kstd2.cc

    r0d5959c r59b9fdb  
    9191  const TSet T=strat->T;
    9292  const unsigned long* sevT=strat->sevT;
     93  const ring r=currRing;
     94  const BOOLEAN is_Ring=rField_is_Ring(r);
    9395  if (L->p!=NULL)
    9496  {
    95     const ring r=currRing;
    9697    const poly p=L->p;
    9798
    9899    pAssume(~not_sev == p_GetShortExpVector(p, r));
    99100
    100     if(rField_is_Ring(r))
     101    if(is_Ring)
    101102    {
    102103      loop
     
    145146    const poly p=L->t_p;
    146147    const ring r=strat->tailRing;
    147     if(rField_is_Ring(r))
     148    if(is_Ring)
    148149    {
    149150      loop
     
    200201
    201202  pAssume(~not_sev == p_GetShortExpVector(p, currRing));
     203
     204  BOOLEAN is_Ring=rField_is_Ring(currRing);
    202205#if 1
    203206  int ende;
    204   if ((strat->ak>0) || currRing->pLexOrder || rField_is_Ring(currRing)) ende=strat->sl;
    205   else ende=posInS(strat,*max_ind,p,0)+1;
    206   if (ende>(*max_ind)) ende=(*max_ind);
     207  if (is_Ring
     208  || (strat->ak>0)
     209  || currRing->pLexOrder)
     210    ende=strat->sl;
     211  else
     212  {
     213    ende=posInS(strat,*max_ind,p,0)+1;
     214    if (ende>(*max_ind)) ende=(*max_ind);
     215  }
    207216#else
    208217  int ende=strat->sl;
    209218#endif
    210   (*max_ind)=ende;
    211   if(rField_is_Ring(currRing))
     219  if(is_Ring)
    212220  {
    213221    loop
  • kernel/GBEngine/tgb.cc

    r0d5959c r59b9fdb  
    29972997        nDelete (&coef);
    29982998        h = kBucketGetLm (P.bucket);
    2999         pTest (h);
    30002999        if(h == NULL)
    30013000        {
     
    30063005          return res;
    30073006        }
    3008         pTest (h);
    30093007        P.p = h;
    30103008        P.t_p = NULL;
     
    44934491      return;
    44944492    }
    4495     if(j < 0)
     4493    else /*if(j < 0)*/
    44964494    {
    44974495      //not reduceable, try to use this for reducing higher terms
Note: See TracChangeset for help on using the changeset viewer.