Changeset ae4fd2a in git

Timestamp:

Feb 24, 2014, 2:45:27 PM (9 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'd1ba061a762c62d3a25159d8da8b6e17332291fa')

Children:

848bd56f0e6524e64455d4225b26ebedfcdccd83

Parents:

0a6bb08c6f0682a52c5e101d9181d755a4c063c9

Message:

fix: ring list with no variables -> error

Files:

• Singular/ipshell.cc (modified) (1 diff)
• kernel/kutil.cc (modified) (2 diffs)

Singular/ipshell.cc

@@ -2198 +2198 @@
     lists v=(lists)L->m[1].Data();
     R->N = v->nr+1;
+    if (R->N<=0) 
+    {
+      WerrorS("no ring variables");
+      goto rCompose_err;
+    }
     R->names   = (char **)omAlloc0(R->N * sizeof(char_ptr));
     int i;

kernel/kutil.cc

@@ -725 +725 @@
   }
 
-  if (i >= 0 && T->pLength != 0
-  && ! rIsSyzIndexRing(currRing) && T->pLength != pLength(p))
+  if ((i >= 0) && (T->pLength != 0)
+  && (! rIsSyzIndexRing(currRing)) && (T->pLength != pLength(p)))
   {
     int l=T->pLength;
@@ -5510 +5510 @@
   {
     L->length = 0;
+    L->pLength = 0;
   }