Changeset cce4a2f in git
 Timestamp:
 Feb 22, 2009, 11:39:42 AM (14 years ago)
 Branches:
 (u'spielwiese', '8d54773d6c9e2f1d2593a28bc68b7eeab54ed529')
 Children:
 454cb04f5efb2088dc5f4cb1acc184a60aa3bbbd
 Parents:
 4732f82312538109bdce424060412c45a2b85dc6
 Location:
 kernel
 Files:

 2 edited
Legend:
 Unmodified
 Added
 Removed

kernel/kutil.cc
r4732f8 rcce4a2f 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: kutil.cc,v 1.1 19 20090221 17:50:11Singular Exp $ */4 /* $Id: kutil.cc,v 1.120 20090222 10:39:42 Singular Exp $ */ 5 5 /* 6 6 * ABSTRACT: kernel: utils for kStd … … 1387 1387 #define MYTEST 0 1388 1388 1389 if (strat>sugarCrit && PROD_CRIT(strat))1389 if (strat>sugarCrit && ALLOW_PROD_CRIT(strat)) 1390 1390 { 1391 1391 if((!((strat>ecartS[i]>0)&&(ecart>0))) … … 1456 1456 else /*sugarcrit*/ 1457 1457 { 1458 if ( PROD_CRIT(strat))1458 if (ALLOW_PROD_CRIT(strat)) 1459 1459 { 1460 1460 // if currRing>nc_type!=quasi (or skew) … … 1541 1541 // } 1542 1542 // else 1543 if( PROD_CRIT(strat) )1543 if( ALLOW_PROD_CRIT(strat) ) 1544 1544 { 1545 1545 // product criterion for homogeneous case in SCA … … 1643 1643 { 1644 1644 //PrintS("prodcrit\n"); 1645 if( PROD_CRIT(strat))1645 if(ALLOW_PROD_CRIT(strat)) 1646 1646 { 1647 1647 //PrintS("prodcrit\n"); … … 6914 6914 } 6915 6915 6916 if (strat>sugarCrit && PROD_CRIT(strat))6916 if (strat>sugarCrit && ALLOW_PROD_CRIT(strat)) 6917 6917 { 6918 6918 if((!((ecartq>0)&&(ecart>0))) … … 6983 6983 else /*sugarcrit*/ 6984 6984 { 6985 if ( PROD_CRIT(strat))6985 if (ALLOW_PROD_CRIT(strat)) 6986 6986 { 6987 6987 // if currRing>nc_type!=quasi (or skew) … … 7065 7065 // } 7066 7066 // else 7067 // if( PROD_CRIT(strat) )7067 // if( ALLOW_PROD_CRIT(strat) ) 7068 7068 // { 7069 7069 // // product criterion for homogeneous case in SCA 
kernel/kutil.h
r4732f8 rcce4a2f 4 4 * Computer Algebra System SINGULAR * 5 5 ****************************************/ 6 /* $Id: kutil.h,v 1. 39 20090221 17:50:11Singular Exp $ */6 /* $Id: kutil.h,v 1.40 20090222 10:39:42 Singular Exp $ */ 7 7 /* 8 8 * ABSTRACT: kernel: utils for kStd … … 331 331 /*FALSE, if posInL == posInL10*/ 332 332 #ifdef HAVE_PLURAL 333 // set this flag to 1 to stop the product criteria 334 // use ALLOW_PROD_CRIT(strat) to test 333 335 BOOLEAN no_prod_crit; 334 #define PROD_CRIT(A) (!(A)>no_prod_crit)336 #define ALLOW_PROD_CRIT(A) (!(A)>no_prod_crit) 335 337 #else 336 #define PROD_CRIT(A) (1)338 #define ALLOW_PROD_CRIT(A) (1) 337 339 #endif 338 340 char redTailChange;
Note: See TracChangeset
for help on using the changeset viewer.