Changeset f0e41bc in git

Timestamp:

Nov 5, 1999, 4:54:29 PM (24 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

9d0697170908a6e9669c18eaf6ea6c461ed24375

Parents:

0a61ade6e7f3bac9e3585cb4ce421aa9f247f30d

Message:

*hannes: fixed bug in rComplete(wrong assumption)


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

File:

• Singular/ring.cc (modified) (3 diffs)

Singular/ring.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ring.cc,v 1.79 1999-11-02 15:19:10 Singular Exp $ */
+/* $Id: ring.cc,v 1.80 1999-11-05 15:54:29 Singular Exp $ */
 
 /*
@@ -2470 +2470 @@
 
   // fill in some empty slots with variables not already covered
-  // v0 is special, is therefore already covered
-  assume(v[0]!=-1);
+  // v0 is special, is therefore normally already covered
+  // but if not:
+  if (v[0]== -1)
+  {
+    if (prev_ordsgn==1)
+    {
+      rO_Align(j, j_bits);
+      rO_LexVars(j, j_bits, 0,0, prev_ordsgn,tmp_ordsgn,v,BITS_PER_LONG);
+    }
+    else
+    {
+      rO_Align(j, j_bits);
+      rO_LexVars_neg(j, j_bits, 0,0, prev_ordsgn,tmp_ordsgn,v,BITS_PER_LONG);
+    }
+  }
+  // the variables
   for(i=1 ; i<r->N+1 ; i++)
   {
@@ -2916 +2930 @@
 
   // fill in some empty slots with variables not already covered
-  // v0 is special, is therefore already covered
-  assume(v[0]!=-1);
-  for(i=1 ; i<r->N+1 ; i++)
+  // v0 is special, is therefore normally already covered
+  // but if not:
+  for(i=0 ; i<r->N+1 ; i++)
   {
     if(v[i]==(-1))