Changeset 0318fe in git


Ignore:
Timestamp:
Jan 13, 2015, 12:22:14 PM (9 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')
Children:
d711b46eb29f241f3854ae99e8451d3beb7f96e4
Parents:
37c2b35026800c66eeabc04e5cdb28d10ddb012b
Message:
format
File:
1 edited

Legend:

Unmodified
Added
Removed
  • kernel/GBEngine/khstd.cc

    r37c2b3 r0318fe  
    150150*/
    151151{
    152 int i;
    153 ideal Lm;
    154 intvec *newhilb;
    155 
    156 Lm = id_Head(strat->Shdl,currRing);
    157 
    158 newhilb =hHstdSeries(Lm,w,strat->kHomW,Q,currRing); // ,strat->tailRing?
     152  ideal Lm;
     153  intvec *newhilb;
     154
     155  Lm = id_Head(strat->Shdl,currRing);
     156
     157  newhilb =hHstdSeries(Lm,w,strat->kHomW,Q,currRing); // ,strat->tailRing?
    159158
    160159#if ADIDEBUG
     
    188187#endif
    189188
    190 if(newhilb->compare(hilb) == 0)
    191         {
    192                 while (strat->Ll>=0)
    193           {
    194             count++;
    195             if(TEST_OPT_PROT)
    196             {
    197               PrintS("h");
    198               mflush();
    199             }
    200             deleteInL(strat->L,&strat->Ll,strat->Ll,strat);
    201           }
    202           delete newhilb;
    203           return;
    204    }
    205 
    206 id_Delete(&Lm,currRing);
    207 
     189  if(newhilb->compare(hilb) == 0)
     190  {
     191    while (strat->Ll>=0)
     192    {
     193      count++;
     194      if(TEST_OPT_PROT)
     195      {
     196        PrintS("h");
     197        mflush();
     198      }
     199      deleteInL(strat->L,&strat->Ll,strat->Ll,strat);
     200    }
     201    delete newhilb;
     202    return;
     203  }
     204  id_Delete(&Lm,currRing);
    208205}
Note: See TracChangeset for help on using the changeset viewer.