Changeset e784726 in git

Timestamp:

Sep 28, 2004, 6:04:45 PM (20 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

513817ed224c93a01fa0f0e0e6cae37f119ff6b7

Parents:

7163357fd8b5b3eed39e909b5ad5a53d3c79bbb6

Message:

*hannes: 64bit stuff


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

Location:

kernel

Files:

• pInline2.h (modified) (2 diffs)
• polys-impl.h (modified) (2 diffs)

kernel/pInline2.h

@@ -7 +7 @@
  *  Author:  obachman (Olaf Bachmann)
  *  Created: 8/00
- *  Version: $Id: pInline2.h,v 1.2 2004-08-27 12:20:40 Singular Exp $
+ *  Version: $Id: pInline2.h,v 1.3 2004-09-28 16:04:45 Singular Exp $
  *******************************************************************/
 #ifndef PINLINE2_H
@@ -48 +48 @@
     {
       case ro_wp_neg:
-        return (((long)((p)->exp[r->pOrdIndex]))-((long) POLY_NEGWEIGHT_OFFSET));
+        return (((long)((p)->exp[r->pOrdIndex]))-POLY_NEGWEIGHT_OFFSET);
       case ro_syzcomp:
       case ro_syz:

kernel/polys-impl.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys-impl.h,v 1.1.1.1 2003-10-06 12:16:01 Singular Exp $ */
+/* $Id: polys-impl.h,v 1.2 2004-09-28 16:04:45 Singular Exp $ */
 
 /***************************************************************
@@ -40 +40 @@
 #define POLYSIZE (sizeof(poly) + sizeof(number))
 #define POLYSIZEW (POLYSIZE / sizeof(long))
-#define POLY_NEGWEIGHT_OFFSET 0x80000000
+#if SIZEOF_LONG == 8
+#define POLY_NEGWEIGHT_OFFSET (((long)0x80000000) << 32)
+#else
+#define POLY_NEGWEIGHT_OFFSET ((long)0x80000000)
+#endif
+
 
 /***************************************************************