Changeset d02c1b in git

Timestamp:

Feb 9, 2010, 5:47:59 PM (14 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

a477f80136c773f8acffd73512f53bf88a7c6fe8

Parents:

2769328849b7f094014fdd9f4f080aad9cdd943d

Message:

track 202: check for neg. entries

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

File:

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

Singular/iparith.cc

@@ -2675 +2675 @@
   intvec *iv=(intvec *)v->Data();
   poly p=pOne();
-  int i;
+  int i,e;
+  BOOLEAN err=FALSE;
   for(i=si_min(pVariables,iv->length()); i>0; i--)
   {
-    pSetExp(p,i,(*iv)[i-1]);
+    e=(*iv)[i-1];
+    if (e>=0) pSetExp(p,i,e);
+    else err=TRUE;
   }
   if (iv->length()==(pVariables+1))
   {
     res->rtyp=VECTOR_CMD;
-    pSetComp(p,(*iv)[pVariables]);
+    e=(*iv)[pVariables];
+    if (e>=0) pSetComp(p,e);
+    else err=TRUE;
   }
   pSetm(p);
   res->data=(char*)p;
-  return FALSE;
+  if(err) { pDelete(&p); WerrorS("no negative exponent allowed"); }
+  return err;
 }
 static BOOLEAN jjPARSTR2(leftv res, leftv u, leftv v)