Changeset e416b6 in git for Singular

Timestamp:

Jan 15, 1998, 5:16:23 PM (26 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')

Children:

196a7bc15803450f7d2084029d82fb1aab0fe85a

Parents:

556acd683fd90074c0f666d70d62ce57c29260c9

Message:

* fixed COMP_NO_EXP_VECTOR_OPS for LITTLE ENDIAN


git-svn-id: file:///usr/local/Singular/svn/trunk@1025 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.10 1998-01-14 19:21:10 obachman Exp $ */
+/* $Id: polys-impl.h,v 1.11 1998-01-15 16:16:23 obachman Exp $ */
 
 /***************************************************************
@@ -70 +70 @@
     monomial operations, i.e. does everything exponent-wise. 
  ***************************************************************/
-#define COMP_FAST
+// #define COMP_FAST
 // #define COMP_DEBUG
-#define COMP_NO_EXP_VECTOR_OPS
+// #define COMP_NO_EXP_VECTOR_OPS
 #define COMP_TRADITIONAL
 
@@ -721 +721 @@
   const long* const lb = s1 + pVariables1W;
 #else
-  const Exponent_t *s1 = (Exponent_t*) &(p1->exp[0]);
-  const Exponent_t *s2 = (Exponent_t*) &(p2->exp[0]);
+  const Exponent_t *s1 = (Exponent_t*) &(p1->exp[pVarLowIndex]);
+  const Exponent_t *s2 = (Exponent_t*) &(p2->exp[pVarLowIndex]);
   const Exponent_t* const lb = s1 + pVariables;
   if (_pGetComp(p1) != _pGetComp(p2)) return FALSE;