Changeset 5a5e050 in git


Ignore:
Timestamp:
May 21, 2010, 1:03:50 PM (14 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'c7af8613769b29c741d6c338945669719f1fc4f8')
Children:
831d9cb36e2fc25e90ae64548653ae3912804b04
Parents:
fc5801386ef5f4c9e77b7f5b79bdaedcff2e341f
Message:
stdhilb fixed for module case

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

Legend:

Unmodified
Added
Removed
  • kernel/khstd.cc

    rfc58013 r5a5e050  
    4949  if (eledeg == 0)
    5050  {
     51    if (strat->ak>0)
     52    {
     53      char *used_comp=(char*)omAlloc0(strat->ak+1);
     54      int i;
     55      for(i=strat->sl;i>0;i--)
     56      {
     57        used_comp[pGetComp(strat->S[i])]='\1';
     58      }
     59      for(i=strat->ak;i>0;i--)
     60      {
     61        if(used_comp[i]=='\0')
     62        {
     63          omFree((ADDRESS)used_comp);
     64          return;
     65        }
     66      }
     67      omFree((ADDRESS)used_comp);
     68    }
    5169    degp=pFDeg;
    5270    // if weights for variables were given to std computations,
     
    7492        else // we have newhilb = hilb
    7593        {
    76           if (strat->ak>0)
    77           {
    78             char *used_comp=(char*)omAlloc0(strat->ak+1);
    79             int i;
    80             for(i=strat->sl;i>0;i--)
    81               used_comp[pGetComp(strat->S[i])]='\1';
    82             for(i=strat->ak;i>0;i--)
    83             {
    84               if(used_comp[i]=='\0')
    85               {
    86                 omFree((ADDRESS)used_comp);
    87                 delete newhilb;
    88                 return;
    89               }
    90             }
    91             omFree((ADDRESS)used_comp);
    92           }
    9394          while (strat->Ll>=0)
    9495          {
Note: See TracChangeset for help on using the changeset viewer.