Changeset 35fb36 in git

Timestamp:

Feb 2, 2000, 3:27:10 PM (24 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

eb508c56858974e93821395bcb17cc4d7c11bcf7

Parents:

b011fceaefa6d01d9450f44316e415cf4231e3da

Message:

*hannes: SHITED_EXP fix


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

Location:

Singular

Files:

• polys-impl.h (modified) (4 diffs)
• tok.h (modified) (2 diffs)

Singular/polys-impl.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys-impl.h,v 1.43 2000-01-26 18:10:53 Singular Exp $ */
+/* $Id: polys-impl.h,v 1.44 2000-02-02 14:27:01 Singular Exp $ */
 
 /***************************************************************
@@ -32 +32 @@
 union s_exp
 {
+#ifdef HAVE_SHIFTED_EXPONENTS
+   long           e[VARS +1];
+   unsigned long  l[VARS +1];
+#else
    Exponent_t     e[VARS +1];
    unsigned long  l[(VARS +1)/(sizeof(long)/sizeof(Exponent_t))];
+#endif
 };
 
@@ -540 +545 @@
  *
  * Misc. things
- * 
+ *
  *
  ***************************************************************/
@@ -554 +559 @@
   pDBShortDivisibleBy(a, sev_a, b, not_sev_b, __FILE__, __LINE__)
 BOOLEAN pDBShortDivisibleBy(poly p1, unsigned long sev_1,
-                            poly p2, unsigned long not_sev_2, 
+                            poly p2, unsigned long not_sev_2,
                             char* f, int l);
 #else

Singular/tok.h

@@ -7 +7 @@
 * ABSTRACT: tokens, types for interpreter; general macros
 */
-/* $Id: tok.h,v 1.37 2000-02-01 15:29:27 Singular Exp $ */
+/* $Id: tok.h,v 1.38 2000-02-02 14:27:10 Singular Exp $ */
 
 #ifndef MYYSTYPE
@@ -45 +45 @@
 #define EXPONENT_T long
 /* Define the size of exponent */
+#undef SIZEOF_EXPONENT
 #define SIZEOF_EXPONENT SIZEOF_LONG
 #endif