Changeset baa72c5 in git
- Timestamp:
- Jul 22, 2008, 5:15:21 PM (16 years ago)
- Branches:
- (u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
- Children:
- a7fbddcbff3bcbdd93360df7d7c3a3d47bd04e1c
- Parents:
- c691df8cf70a169267ef0c05ea9bd356948e6e8b
- Location:
- kernel
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
kernel/kstd1.cc
rc691df rbaa72c5 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: kstd1.cc,v 1.3 6 2008-07-08 13:02:21 Singular Exp $ */4 /* $Id: kstd1.cc,v 1.37 2008-07-22 15:15:21 Singular Exp $ */ 5 5 /* 6 6 * ABSTRACT: … … 1483 1483 BITSET save_test=test; 1484 1484 1485 if (idIs0(q)) return idInit(IDELEMS(q), q->rank);1485 if (idIs0(q)) return idInit(IDELEMS(q),si_max(q->rank,F->rank)); 1486 1486 if ((idIs0(F))&&(Q==NULL)) 1487 1487 return idCopy(q); /*F=0*/ … … 1537 1537 } 1538 1538 /*- compute------------------------------------------- -*/ 1539 res=idInit(IDELEMS(q), q->rank);1539 res=idInit(IDELEMS(q),strat->ak); 1540 1540 for (i=0; i<IDELEMS(q); i++) 1541 1541 { -
kernel/kstd2.cc
rc691df rbaa72c5 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: kstd2.cc,v 1. 69 2008-07-09 08:26:29 wienandExp $ */4 /* $Id: kstd2.cc,v 1.70 2008-07-22 15:15:04 Singular Exp $ */ 5 5 /* 6 6 * ABSTRACT - Kernel: alg. of Buchberger … … 1335 1335 1336 1336 if (idIs0(q)) 1337 return idInit(IDELEMS(q), q->rank);1337 return idInit(IDELEMS(q),si_max(q->rank,F->rank)); 1338 1338 if ((idIs0(F))&&(Q==NULL)) 1339 1339 return idCopy(q); /*F=0*/ … … 1353 1353 /*Shdl=*/initS(F,Q,strat); 1354 1354 /*- compute------------------------------------------------------- -*/ 1355 res=idInit(IDELEMS(q), q->rank);1355 res=idInit(IDELEMS(q),si_max(q->rank,F->rank)); 1356 1356 for (i=IDELEMS(q)-1; i>=0; i--) 1357 1357 {
Note: See TracChangeset
for help on using the changeset viewer.