Changeset 47faf56 in git for Singular/polys-impl.h

Timestamp:

Jan 12, 1998, 8:00:02 PM (26 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

567aff6dba275744806617fcbb3253b828a9b5d1

Parents:

38cfbb50a8306b0a1da54ae6a6614ae8f4ecc643

Message:

* ring handling: from pChangeRing to rChangeCurrRing was prepared
* various fixes towards working COMP_FAST
* fixed gcd content problem of factory


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

File:

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

Singular/polys-impl.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys-impl.h,v 1.5 1998-01-05 16:39:25 Singular Exp $ */
+/* $Id: polys-impl.h,v 1.6 1998-01-12 18:59:52 obachman Exp $ */
 
 /***************************************************************
@@ -174 +174 @@
   ((r)->VarOffset > (SIZEOF_LONG / SIZEOF_EXPONENT) - 1 ?   \
    (r)->VarOffset - (i) : (r)->VarOffset + (i))
+#define _pExpIndex(i)                                   \
+  (pVarOffset > (SIZEOF_LONG / SIZEOF_EXPONENT) - 1 ?   \
+   pVarOffset - (i) : pVarOffset + (i))
 #endif
     
@@ -825 +828 @@
 
 #ifdef COMP_FAST
-#define _pExpQuerSum(p)     __pExpQuerSum2(p, pVarLowIndex, pVarHighIndex)
-#define _pExpQuerSum1(p,to) __pExpQuerSum2(p, pVarLowIndex, pVarLowIndex+to-1) 
-#define _pExpQuerSum2(p,from, to)     \
-  __pQuerSum2(p, pVarLowIndex + from -1 ,pVarLowIndex + to -1)
-#else
+#define _pExpQuerSum(p)  __pExpQuerSum2(p, pVarLowIndex, pVarHighIndex)
+
+#define _pExpQuerSum1(p,to) \
+ (_pHasReverseExp ? \
+    __pExpQuerSum2(p, _pExpIndex(to), _pExpIndex(1)) : \
+    __pExpQuerSum2(p, _pExpIndex(1), _pExpIndex(to)))
+ 
+#define _pExpQuerSum2(p,from,to) \
+ (_pHasReverseExp ? \
+    __pExpQuerSum2(p, _pExpIndex(to), _pExpIndex(from)) : \
+    __pExpQuerSum2(p, _pExpIndex(from), _pExpIndex(to)))
+#else
+
 #define _pExpQuerSum(p)             __pExpQuerSum2(p, 1, pVariables)
 #define _pExpQuerSum1(p, to)        __pExpQuerSum2(p, 1, to)
 #define _pExpQuerSum2(p, from, to)  __pExpQuerSum2(p, from, to)
+
 #endif