Changeset eed827 in git


Ignore:
Timestamp:
Jul 24, 2008, 12:27:17 PM (16 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b52fc4b2495505785981d640dcf7eb3e456778ef')
Children:
deca7f632757f8799904f3321e86810ad1b32cb1
Parents:
9a23ea12b6c62eb9f558b89d9b30faf7fd7880ef
Message:
*hannes: format


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

Legend:

Unmodified
Added
Removed
  • kernel/kstd2.cc

    r9a23ea1 reed827  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: kstd2.cc,v 1.70 2008-07-22 15:15:04 Singular Exp $ */
     4/* $Id: kstd2.cc,v 1.71 2008-07-24 10:27:17 Singular Exp $ */
    55/*
    66*  ABSTRACT -  Kernel: alg. of Buchberger
     
    14951495
    14961496    /* here in the nonhomog case we shrink the new spoly */
    1497    
     1497
    14981498    if ( ! strat->homog)
    14991499    {
     
    15071507         /* we're here if Shrink is nonzero */
    15081508        //         strat->P.p =  NULL;
    1509         //        strat->P.Delete(); /* deletes P.p and P.t_p */ //error
     1509        //        strat->P.Delete(); /* deletes P.p and P.t_p */ //error
    15101510        strat->P.p   =  NULL; // is not set by Delete
    15111511        strat->P.t_p =  qq;
     
    15241524         if (TEST_OPT_DEBUG){PrintS("nonzero s shrinks to 0");PrintLn();}
    15251525#endif
    1526          //      strat->P.Delete();  // cause error
    1527         strat->P.p = NULL;
    1528         strat->P.t_p = NULL;
     1526         //        strat->P.Delete();  // cause error
     1527        strat->P.p = NULL;
     1528        strat->P.t_p = NULL;
    15291529           //         strat->P.p = NULL; // or delete strat->P.p ?
    15301530       }
     
    16031603
    16041604    /* here in the nonhomog case we shrink the reduced poly AGAIN */
    1605    
     1605
    16061606    if ( ! strat->homog)
    16071607    {
     
    16151615         /* we're here if Shrink is nonzero */
    16161616        //         strat->P.p =  NULL;
    1617         //        strat->P.Delete(); /* deletes P.p and P.t_p */ //error
     1617        //        strat->P.Delete(); /* deletes P.p and P.t_p */ //error
    16181618        strat->P.p   =  NULL; // is not set by Delete
    16191619        strat->P.t_p =  qq;
     
    16291629         if (TEST_OPT_DEBUG){PrintS("nonzero s shrinks to 0");PrintLn();}
    16301630#endif
    1631          //      strat->P.Delete();  // cause error
    1632         strat->P.p = NULL;
    1633         strat->P.t_p = NULL;
     1631         //        strat->P.Delete();  // cause error
     1632        strat->P.p = NULL;
     1633        strat->P.t_p = NULL;
    16341634           //         strat->P.p = NULL; // or delete strat->P.p ?
    1635         goto     red_shrink2zero;
     1635        goto     red_shrink2zero;
    16361636       }
    16371637    }
     
    16441644      //enterTShift(LObject p, kStrategy strat, int atT, int uptodeg, int lV); // syntax
    16451645      // the default value for atT = -1 as in bba
    1646       /*   strat->P.GetP(); */ 
     1646      /*   strat->P.GetP(); */
    16471647      // because shifts are counted with .p structure // done before, but ?
    16481648      enterTShift(strat->P,strat,-1,uptodeg, lV);
     
    16641664      if (strat->sl>srmax) srmax = strat->sl;
    16651665    }
    1666     else 
     1666    else
    16671667    {
    16681668    red_shrink2zero:
    16691669      if (strat->P.p1 == NULL && strat->minim > 0)
    16701670      {
    1671         p_Delete(&strat->P.p2, currRing, strat->tailRing);
     1671        p_Delete(&strat->P.p2, currRing, strat->tailRing);
    16721672      }
    16731673    }
     
    18541854        {
    18551855          int dummy=strat->sl;
    1856           /*          if (kFindDivisibleByInS(strat,&dummy, h) < 0) */
     1856          /*          if (kFindDivisibleByInS(strat,&dummy, h) < 0) */
    18571857          if (kFindDivisibleByInT(strat->T,strat->sevT, dummy, h) < 0)
    18581858            return 1;
Note: See TracChangeset for help on using the changeset viewer.