Changeset 6e56de in git for Singular/polys-impl.h
- Timestamp:
- Aug 24, 2000, 1:21:47 PM (24 years ago)
- Branches:
- (u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')
- Children:
- 51e993f9b344a8396d1aacab475782ed749fc581
- Parents:
- 660ad3261b8221e209ee2df3ffc488c824260573
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/polys-impl.h
r660ad32 r6e56de 4 4 * Computer Algebra System SINGULAR * 5 5 ****************************************/ 6 /* $Id: polys-impl.h,v 1.4 6 2000-08-14 12:56:44 obachmanExp $ */6 /* $Id: polys-impl.h,v 1.47 2000-08-24 11:21:44 Singular Exp $ */ 7 7 8 8 /*************************************************************** … … 34 34 { 35 35 #ifdef HAVE_SHIFTED_EXPONENTS 36 long e[VARS +1];37 36 unsigned long l[VARS +1]; 38 37 #else … … 102 101 #define _pSetCoeff0(p,n) (p)->coef=n 103 102 103 //#ifdef HAVE_SHIFTED_EXPONENTS 104 //#define _pGetOrder(p) ((p)->exp.l[currRing->pOrdIndex]-0x40000000) 105 //#else 104 106 #define _pGetOrder(p) ((p)->exp.l[currRing->pOrdIndex]) 107 //#endif 105 108 106 109 #if defined(PDEBUG) && PDEBUG > 1 … … 254 257 #endif // defined(PDEBUG) && PDEBUG > 1 255 258 259 #ifndef HAVE_SHIFTED_EXPONENTS 260 256 261 #define _pGetComp(p) ((p)->exp.e[_pCompIndex]) 257 262 #define _pIncrComp(p) _pGetComp(p)++ 258 263 #define _pRingGetComp(r,p) ((p)->exp.e[_pRingCompIndex(r)]) 259 264 260 #ifndef HAVE_SHIFTED_EXPONENTS261 265 inline Exponent_t _pGetExpSum(poly p1, poly p2, int i) 262 266 { … … 269 273 return p1->exp.e[index] - p2->exp.e[index]; 270 274 } 271 #else 275 276 #else //--------------------------------------------- 277 278 #define _pGetComp(p) ((p)->exp.l[_pCompIndex]) 279 #define _pIncrComp(p) _pGetComp(p)++ 280 #define _pRingGetComp(r,p) ((p)->exp.l[_pRingCompIndex(r)]) 281 272 282 inline Exponent_t _pGetExpSum(poly p1, poly p2, int i) 273 283 {
Note: See TracChangeset
for help on using the changeset viewer.