Changeset 4f3177 in git for Singular/ipshell.cc

Timestamp:

May 5, 2005, 12:42:00 PM (18 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

54e28fc2679933ca28cd8feded2139df758fa3d8

Parents:

0b8c8d54328b4dab061ef0b1fd53fda79ac62739

Message:

*hannes: frwalk


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

File:

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

Singular/ipshell.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipshell.cc,v 1.107 2005-04-30 15:31:34 Singular Exp $ */
+/* $Id: ipshell.cc,v 1.108 2005-05-05 10:41:59 Singular Exp $ */
 /*
 * ABSTRACT:
@@ -4045 +4045 @@
       n--;
     }
-    else if ((*iv)[1]!=ringorder_a) o++;
+    else if (((*iv)[1]!=ringorder_a)
+    && ((*iv)[1]!=ringorder_a64)) o++;
     n++;
     sl=sl->next;
@@ -4137 +4138 @@
             }
             break;
+          case ringorder_a64:
+          {
+            R->block0[n] = last+1;
+            R->block1[n] = min(last+iv->length()-2 , R->N);
+            R->wvhdl[n] = (int*)omAlloc((iv->length()-1)*sizeof(int64));
+            int64 *w=(int64 *)R->wvhdl[n];
+            for (i=2; i<iv->length(); i++)
+            {
+              w[i-2]=(*iv)[i];
+              if ((*iv)[i]<0) typ=-1;
+            }
+            break;
+          }
           case ringorder_M:
           {
@@ -4551 +4565 @@
   return NULL;
 }
-