Changeset c903a3 in git for kernel/kutil.cc
- Timestamp:
- Feb 1, 2007, 5:39:30 PM (17 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- f4b74e24435694d98ef9a9bec0af428cd1ff0629
- Parents:
- db70a23edf7040a3fa40d7ac55c0c84cd08b970e
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
kernel/kutil.cc
rdb70a23 rc903a3 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: kutil.cc,v 1.4 6 2007-02-01 16:20:44Singular Exp $ */4 /* $Id: kutil.cc,v 1.47 2007-02-01 16:39:30 Singular Exp $ */ 5 5 /* 6 6 * ABSTRACT: kernel: utils for kStd … … 951 951 #endif 952 952 (*length)--; 953 }954 955 /*2956 *is used after updating the pairset,if the leading term of p957 *divides the leading term of some S[i] it will be canceled958 */959 static inline void clearS (poly p, unsigned long p_sev, int* at, int* k,960 kStrategy strat)961 {962 assume(p_sev == pGetShortExpVector(p));963 if (strat->noClearS) return;964 if (!pLmShortDivisibleBy(p,p_sev, strat->S[*at], ~ strat->sevS[*at])) return;965 deleteInS((*at),strat);966 (*at)--;967 (*k)--;968 953 } 969 954
Note: See TracChangeset
for help on using the changeset viewer.