Changeset 317eb8 in git for Singular/iparith.cc

Timestamp:

Mar 22, 2018, 5:44:02 PM (6 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

7def4e635eb38cf4cbdf419d9d3bf4538f05d0a8

Parents:

7ce322b8f6be293aef66aa32857f21916e1750e8

Message:

fix: jjCOEF_M (type check)

File:

• Singular/iparith.cc (modified) (1 diff)

Singular/iparith.cc

@@ -6546 +6546 @@
 static BOOLEAN jjCOEF_M(leftv, leftv v)
 {
-  const short t[]={5,VECTOR_CMD,POLY_CMD,MATRIX_CMD,MATRIX_CMD,IDHDL};
-  if (iiCheckTypes(v,t))
-     return TRUE;
-  idhdl c=(idhdl)v->next->next->data;
-  if (v->next->next->next->rtyp!=IDHDL) return TRUE;
-  idhdl m=(idhdl)v->next->next->next->data;
-  idDelete((ideal *)&(c->data.uideal));
-  idDelete((ideal *)&(m->data.uideal));
-  mp_Coef2((poly)v->Data(),(poly)v->next->Data(),
-    (matrix *)&(c->data.umatrix),(matrix *)&(m->data.umatrix),currRing);
-  return FALSE;
+  const short t[]={4,VECTOR_CMD,POLY_CMD,MATRIX_CMD,MATRIX_CMD};
+  if (iiCheckTypes(v,t,1))
+  {
+    idhdl c=(idhdl)v->next->next->data;
+    if (v->next->next->next->rtyp!=IDHDL) return TRUE;
+    idhdl m=(idhdl)v->next->next->next->data;
+    idDelete((ideal *)&(c->data.uideal));
+    idDelete((ideal *)&(m->data.uideal));
+    mp_Coef2((poly)v->Data(),(poly)v->next->Data(),
+      (matrix *)&(c->data.umatrix),(matrix *)&(m->data.umatrix),currRing);
+    return FALSE;
+  }
+  return TRUE;
 }