Changeset 87ff23 in git


Ignore:
Timestamp:
Aug 19, 1999, 5:26:13 PM (25 years ago)
Author:
Wilfred Pohl <pohl@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')
Children:
6452fc3d903907774854bb4574c214a360565999
Parents:
c3f5b924e0ef5cdb6989a1801a9daac9087a106b
Message:
bug fix


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

Legend:

Unmodified
Added
Removed
  • Singular/ideals.cc

    rc3f5b9 r87ff23  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ideals.cc,v 1.52 1999-08-19 08:31:09 pohl Exp $ */
     4/* $Id: ideals.cc,v 1.53 1999-08-19 15:26:12 pohl Exp $ */
    55/*
    66* ABSTRACT - all basic methods to manipulate ideals
     
    24352435  }
    24362436  a = mpCopy(a);
    2437   result=idInit(31,1);
     2437  result=idInit(32,1);
    24382438  if(ar>1) mpRecMin(ar-1,result,elems,a,a->nrows,a->ncols,NULL);
    24392439  else mpMinorToResult(result,elems,a,a->nrows,a->ncols);
  • Singular/matpol.cc

    rc3f5b9 r87ff23  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: matpol.cc,v 1.25 1999-08-19 08:31:10 pohl Exp $ */
     4/* $Id: matpol.cc,v 1.26 1999-08-19 15:26:13 pohl Exp $ */
    55
    66/*
     
    356356  int i,j;
    357357
    358   if(e<0X80000000)
    359   {   
    360     for (i=r-1;i>=0;i--)
    361     {
    362       q1 = &(a->m)[i*a->ncols];
    363       for (j=c-1;j>=0;j--)
    364       {
    365         if (q1[j]!=NULL)
     358  for (i=r-1;i>=0;i--)
     359  {
     360    q1 = &(a->m)[i*a->ncols];
     361    for (j=c-1;j>=0;j--)
     362    {
     363      if (q1[j]!=NULL)
     364      {
     365        if (elems>=e)
    366366        {
    367           if (elems>=e)
     367          if(e<100000)
    368368          {
    369             pEnlargeSet(&(result->m),e,e+1);
    370             e += e+1;
    371             IDELEMS(result) =e;
     369            pEnlargeSet(&(result->m),e,e);
     370            e += e;
    372371          }
    373           result->m[elems] = q1[j];
    374           q1[j] = NULL;
    375           elems++;
     372          else
     373          {
     374            pEnlargeSet(&(result->m),e,100000);
     375            e += 100000;
     376          }
     377          IDELEMS(result) =e;
    376378        }
    377       }
    378     }
    379   }
    380   else
    381   {
    382     for (i=r-1;i>=0;i--)
    383     {
    384       q1 = &(a->m)[i*a->ncols];
    385       for (j=c-1;j>=0;j--)
    386       {
    387         if (q1[j]!=NULL)
    388         {
    389           if (elems>=e)
    390           {
    391             Werror("stop after %d minors",elems);
    392             HALT();
    393           }
    394           result->m[elems] = q1[j];
    395           q1[j] = NULL;
    396           elems++;
    397         }
     379        result->m[elems] = q1[j];
     380        q1[j] = NULL;
     381        elems++;
    398382      }
    399383    }
Note: See TracChangeset for help on using the changeset viewer.