Changeset 939ac5f in git

Timestamp:

Aug 22, 2000, 11:03:21 AM (23 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0604212ebb110535022efecad887940825b97c3f')

Children:

29c03cba2a9cc84f615cbd8dc65a976688228a3c

Parents:

de023aded2316d538ae624544ebb39c049e712d9

Message:

*hannes: SHIFTED_EXP fixes


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

Location:

Singular

Files:

• polys-impl.cc (modified) (2 diffs)
• polys1.cc (modified) (3 diffs)
• ring.cc (modified) (2 diffs)

Singular/polys-impl.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys-impl.cc,v 1.44 2000-08-14 12:56:44 obachman Exp $ */
+/* $Id: polys-impl.cc,v 1.45 2000-08-22 09:03:20 Singular Exp $ */
 
 /***************************************************************
@@ -914 +914 @@
 #endif
 
+#ifdef HAVE_SHIFTED_EXPONENTS
+#ifdef PDEBUG
+int rComp0(poly p1,poly p2)
+{
+  int i;
+  for(i=0; i<=currRing->pCompHighIndex;i++)
+  {
+    if (p1->exp.l[i] != p2->exp.l[i])
+    {
+      if (p1->exp.l[i] > p2->exp.l[i])
+        return currRing->ordsgn[i];
+      else
+        return -currRing->ordsgn[i];
+    }
+  }
+  return 0;
+}
+#endif
+#endif
 #endif // POLYS_IMPL_CC

Singular/polys1.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys1.cc,v 1.39 2000-08-14 12:56:46 obachman Exp $ */
+/* $Id: polys1.cc,v 1.40 2000-08-22 09:03:21 Singular Exp $ */
 
 /*
@@ -447 +447 @@
     if (i > currRing->bitmask)
     {
-      Werror("exponent is too large, max. is %d",currRing->bitmask);
+      Werror("exponent %d is too large, max. is %d",i,currRing->bitmask);
       return NULL;
     }
@@ -453 +453 @@
     if (i > EXPONENT_MAX)
     {
-      Werror("exponent is too large, max. is %d",EXPONENT_MAX);
+      Werror("exponent %d is too large, max. is %d",i,EXPONENT_MAX);
       return NULL;
     }

Singular/ring.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ring.cc,v 1.104 2000-08-18 15:42:08 Singular Exp $ */
+/* $Id: ring.cc,v 1.105 2000-08-22 09:03:21 Singular Exp $ */
 
 /*
@@ -2559 +2559 @@
   for(j=0;j<=r->pCompHighIndex;j++)
   {
-    r->ordsgn[r->pCompLSize - j - 1]
-      = tmp_ordsgn[j];
+    r->ordsgn[j] = tmp_ordsgn[j];
   }