Changeset b11128 in git

Timestamp:

Jan 21, 2008, 12:19:52 PM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

a2f282249ec19cfc23097e0a535f65c7b4cf87fa

Parents:

0ab7da22b1864f9d6fe30cbbbf75bf4d5fe7acd3

Message:

*hannes: gen(<=0) message


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

File:

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

Singular/iparith.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iparith.cc,v 1.463 2008-01-08 12:10:40 Singular Exp $ */
+/* $Id: iparith.cc,v 1.464 2008-01-21 11:19:52 Singular Exp $ */
 
 /*
@@ -3703 +3703 @@
   res->data = (char *)pOne();
   int co=(int)(long)v->Data();
-  pSetComp((poly)res->data,co);
-  pSetm((poly)res->data);
+  if (co>0)
+  {
+    pSetComp((poly)res->data,co);
+    pSetm((poly)res->data);
+  }
+  else WerrorS("argument of gen must be positive");
   return (co<=0);
 }