Changeset 74aa78 in git for Singular/ring.cc


Ignore:
Timestamp:
Feb 6, 2002, 2:55:46 PM (21 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '00e2e9c41af3fde1273eb3633f4c0c7c3db2579d')
Children:
3952ffb760b49db8a72dbf0ba212274cd56df948
Parents:
9f078157e6340d058cdcc02dfecaaf640bc2634b
Message:
*hannes: rDecompose/rCompose: block0 <= block1


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

Legend:

Unmodified
Added
Removed

  • Singular/ring.cc

    r9f07815 r74aa78  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ring.cc,v 1.183 2002-02-06 13:10:30 Singular Exp $ */
     4/* $Id: ring.cc,v 1.184 2002-02-06 13:55:46 Singular Exp $ */
    55
    66/*
    … …  
    39703970    LLL->m[0].rtyp=STRING_CMD;
    39713971    LLL->m[0].data=(void *)omStrDup(rSimpleOrdStr(r->order[i]));
    3972     LLL->m[1].rtyp=INTVEC_CMD;
    3973     j=r->block1[i]-r->block0[i];
    3974     iv=new intvec(j+1);
    3975     LLL->m[1].data=(void *)iv;
    39763972    if (r->block1[i]-r->block0[i] >=0 )
    39773973    {
     3974      j=r->block1[i]-r->block0[i];
     3975      iv=new intvec(j+1);
    39783976      if ((r->wvhdl!=NULL) && (r->wvhdl[i]!=NULL))
    39793977      {
    … …  
    39923990      }
    39933991    }
     3992    else
     3993    {
     3994      iv=new intvec(1);
     3995    }
     3996    LLL->m[1].rtyp=INTVEC_CMD;
     3997    LLL->m[1].data=(void *)iv;
    39943998    LL->m[i].data=(void *)LLL;
    39953999  }
    … …  
    41114115      else
    41124116        iv=ivCopy((intvec*)vv->m[1].Data()); //assume INTVEC
    4113       R->block1[j]=R->block0[j]+iv->length()-1;
     4117      R->block1[j]=max(R->block0[j],R->block0[j]+iv->length()-1);
    41144118      int i;
    41154119      switch (R->order[j])
Note: See TracChangeset for help on using the changeset viewer.