Changeset e762aa in git

Timestamp:

May 25, 2000, 1:43:02 PM (24 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

d36f7f5ab048359fc71d720f81516898169dcab6

Parents:

2d2c8bed38650e8c01fcfacc5dc479d3e128a3bc

Message:

*hannes: check for correct size of weight vector


git-svn-id: file:///usr/local/Singular/svn/trunk@4396 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.211 2000-05-15 12:47:44 Singular Exp $ */
+/* $Id: iparith.cc,v 1.212 2000-05-25 11:43:02 Singular Exp $ */
 
 /*
@@ -4062 +4062 @@
   intvec *module_w=(intvec *)atGet(u,"isHomog");
   intvec *wdegree=(intvec*)w->Data();
+  if (wdegree->length()!=pVariables)
+  {
+    Werror("weight vector must have size %d, not %d",
+           pVariables,wdegree->length());
+    return TRUE;
+  }
   intvec *iv=hFirstSeries((ideal)u->Data(),module_w,currQuotient,wdegree);
   switch((int)v->Data())