Changeset f0d4069 in git
 Timestamp:
 Jun 12, 2006, 2:35:13 AM (18 years ago)
 Branches:
 (u'fiekerDuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '648d28f488f6ff08f5607ff229b9ad9e4a5b93c2')
 Children:
 09b9c1b1bb4bc6dfc8e876d4d65751e7ed32971f
 Parents:
 c4c516319dd7380d23251f74e2a664cdb5664571
 Location:
 kernel
 Files:

 3 edited
Legend:
 Unmodified
 Added
 Removed

kernel/kutil.cc
rc4c516 rf0d4069 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: kutil.cc,v 1.2 5 20060612 00:07:11wienand Exp $ */4 /* $Id: kutil.cc,v 1.26 20060612 00:35:13 wienand Exp $ */ 5 5 /* 6 6 * ABSTRACT: kernel: utils for kStd … … 1673 1673 { 1674 1674 if (i < 0) break; 1675 if ((strat>L[i].p2 == p) && pLmEqual(strat>L[j].lcm,strat>L[i].lcm) 1676 #ifdef HAVE_RING2TOM 1677 && pDivisibleBy(strat>L[j].lcm, strat>L[i].lcm) 1678 #endif 1679 ) 1675 if ((strat>L[i].p2 == p) && pLmEqual(strat>L[j].lcm,strat>L[i].lcm)) 1680 1676 { 1681 1677 /*L[i] could be canceled but we search for a better one to cancel*/ … … 1684 1680 && (pNext(strat>L[l].p) == strat>tail) 1685 1681 && (!pLmEqual(strat>L[i].p,strat>L[l].p)) 1686 #ifdef HAVE_RING2TOM1687 && 1 == 01688 #endif1689 1682 && pDivisibleBy(p,strat>L[l].lcm)) 1690 1683 { … … 1815 1808 for (j=strat>Ll; j>=0; j) 1816 1809 { 1817 if ( nGreater(pGetCoeff(strat>L[j].lcm), pGetCoeff(p)))1810 if (strat>L[j].lcm != NULL && nGreater(pGetCoeff(strat>L[j].lcm), pGetCoeff(p))) 1818 1811 { 1819 1812 if (pCompareChain(p,strat>L[j].p1,strat>L[j].p2,strat>L[j].lcm)) 
kernel/polys.cc
rc4c516 rf0d4069 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: polys.cc,v 1. 9 20060612 00:07:11wienand Exp $ */4 /* $Id: polys.cc,v 1.10 20060612 00:35:13 wienand Exp $ */ 5 5 6 6 /* … … 935 935 936 936 if (lcm==NULL) return FALSE; 937 #ifdef HAVE_RING2TOM938 // In coefficient rings, the coefficient plays a role in chain crit TODO939 if (currRing>cring == 1 && !pLmDivisibleByNoComp(p, lcm)) return FALSE;940 #endif941 937 942 938 for (j=pVariables; j; j) 
kernel/ringgb.cc
rc4c516 rf0d4069 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: ringgb.cc,v 1.1 1 20060612 00:07:12wienand Exp $ */4 /* $Id: ringgb.cc,v 1.12 20060612 00:35:13 wienand Exp $ */ 5 5 /* 6 6 * ABSTRACT: ringgb interface … … 205 205 return(0); 206 206 } 207 pDelete(&h);208 207 } 209 208 Print("I");
Note: See TracChangeset
for help on using the changeset viewer.