Changeset cf022c7 in git

Timestamp:

Aug 4, 2005, 3:01:42 PM (19 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

d0c9ea56a0d737ac0501ec7c4b0aa1ef9332eaa4

Parents:

ad408c91cc440f15e25c340805838886deb55e13

Message:

*hannes: fixed indices


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

File:

• Singular/ipshell.cc (modified) (6 diffs)

Singular/ipshell.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipshell.cc,v 1.123 2005-08-04 12:29:33 Singular Exp $ */
+/* $Id: ipshell.cc,v 1.124 2005-08-04 13:01:42 Singular Exp $ */
 /*
 * ABSTRACT:
@@ -1873 +1873 @@
     R->wvhdl=(int**)omAlloc0(n*sizeof(int_ptr));
     // init order, so that rBlocks works correctly
-    for (j=0; j < n-2; j++)
+    for (j=0; j < n-1; j++)
       R->order[j] = (int) ringorder_unspec;
     // orderings
@@ -1898 +1898 @@
       {
          int jj=j-1;
-         while((jj>0)
+         while((jj>=0)
          && ((R->order[jj]== ringorder_a) 
             || (R->order[jj]== ringorder_aa)
@@ -1904 +1904 @@
             || (R->order[jj]== ringorder_C)
          ))
+         {
+           //Print("jj=%, skip %s\n",rSimpleOrdStr(R->order[jj]));
            jj--;
-         if (jj==0) R->block0[j]=1;
+         }
+         if (jj<0) R->block0[j]=1;
          else       R->block0[j]=R->block1[jj]+1;
       }
@@ -1947 +1950 @@
            break;
          case 0:
+         case ringorder_unspec:
            break;
       }
@@ -1953 +1957 @@
     j=n-2;
     if ((R->order[j]==ringorder_c)
-    || (R->order[j]==ringorder_C)) j--;
+    || (R->order[j]==ringorder_C)
+    || (R->order[j]==ringorder_unspec)) j--;
     if (R->block1[j] != R->N)
     {