Changeset bd9890 in git for Singular/iparith.cc

Timestamp:

Mar 22, 2021, 5:25:37 PM (3 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')

Children:

b292502ecf0434b3facdc9224948fb924b026ea1c040d9d5003a06f0653fd2400682474bcba2e62b

Parents:

d5b4b6b74819f9180ae9279cb701e929fb931c12

Message:

error msg: checks args for chinrem

File:

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

Singular/iparith.cc

@@ -9933 +9933 @@
   lists pl=NULL;
   intvec *p=NULL;
-  if (v->Typ()==LIST_CMD) pl=(lists)v->Data();
-  else                    p=(intvec*)v->Data();
+  if (v->Typ()==LIST_CMD)
+  {
+    pl=(lists)v->Data();
+    if (pl->nr!=rl-1)
+    {
+      WerrorS("wromg number of primes");
+      return TRUE;
+    }
+  }
+  else
+  {
+    p=(intvec*)v->Data();
+    if (p->length()!=rl)
+    {
+      WerrorS("wromg number of primes");
+      return TRUE;
+    }
+  }
   ideal result;
   ideal *x=(ideal *)omAlloc(rl*sizeof(ideal));