Changeset e25d25 in git for Singular/iparith.cc

Timestamp:

Sep 8, 1998, 4:24:42 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'a7324b6e0b44a1a8ed3fa4d9ca3e2ff210ddd52c')

Children:

225677eaadbf609a3f4c3c50f52112bbd8056a24

Parents:

48340025f0275e744df1383402a93b3605734ae8

Message:

* hannes: modified leadexp for vectors


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

File:

• Singular/iparith.cc (modified) (2 diffs)

Singular/iparith.cc

@@ -2535 +2535 @@
 {
   poly p=(poly)v->Data();
-  intvec *iv=new intvec(pVariables);
+  int s=pVariables;
+  if (v->Typ()==VECTOR_CMD) s++;
+  intvec *iv=new intvec(s);
   if (p!=NULL)
   {
@@ -2542 +2544 @@
       (*iv)[i-1]=pGetExp(p,i);
     }
+    if (s!=pVariables)
+      (*iv)[pVariables]=pGetComp(p);
   }
   res->data=(char *)iv;