Changeset 6e56de in git for Singular/polys-impl.h

Timestamp:

Aug 24, 2000, 1:21:47 PM (24 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

51e993f9b344a8396d1aacab475782ed749fc581

Parents:

660ad3261b8221e209ee2df3ffc488c824260573

Message:

*hannes: removed exp.e


git-svn-id: file:///usr/local/Singular/svn/trunk@4549 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/polys-impl.h (modified) (5 diffs)

Singular/polys-impl.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys-impl.h,v 1.46 2000-08-14 12:56:44 obachman Exp $ */
+/* $Id: polys-impl.h,v 1.47 2000-08-24 11:21:44 Singular Exp $ */
 
 /***************************************************************
@@ -34 +34 @@
 {
 #ifdef HAVE_SHIFTED_EXPONENTS
-   long           e[VARS +1];
    unsigned long  l[VARS +1];
 #else
@@ -102 +101 @@
 #define _pSetCoeff0(p,n)    (p)->coef=n
 
+//#ifdef HAVE_SHIFTED_EXPONENTS
+//#define _pGetOrder(p)       ((p)->exp.l[currRing->pOrdIndex]-0x40000000)
+//#else
 #define _pGetOrder(p)       ((p)->exp.l[currRing->pOrdIndex])
+//#endif
 
 #if defined(PDEBUG) && PDEBUG > 1
@@ -254 +257 @@
 #endif // defined(PDEBUG) && PDEBUG > 1
 
+#ifndef HAVE_SHIFTED_EXPONENTS
+
 #define _pGetComp(p)        ((p)->exp.e[_pCompIndex])
 #define _pIncrComp(p)       _pGetComp(p)++
 #define _pRingGetComp(r,p)        ((p)->exp.e[_pRingCompIndex(r)])
 
-#ifndef HAVE_SHIFTED_EXPONENTS
 inline Exponent_t _pGetExpSum(poly p1, poly p2, int i)
 {
@@ -269 +273 @@
   return p1->exp.e[index] - p2->exp.e[index];
 }
-#else
+
+#else //---------------------------------------------
+
+#define _pGetComp(p)        ((p)->exp.l[_pCompIndex])
+#define _pIncrComp(p)       _pGetComp(p)++
+#define _pRingGetComp(r,p)        ((p)->exp.l[_pRingCompIndex(r)])
+
 inline Exponent_t _pGetExpSum(poly p1, poly p2, int i)
 {