Changeset 88c2d0 in git

Timestamp:

Nov 10, 2006, 7:12:01 PM (17 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

d939c1e68a205cfab9b535d5ffe9a458efc78b76

Parents:

6ce15f016d2c8e334ea0c63562956819a0ca5b8d

Message:

*hannes: test var-weights for correct length in std_hilb_w


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

File:

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

Singular/iparith.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iparith.cc,v 1.417 2006-11-09 12:56:57 Singular Exp $ */
+/* $Id: iparith.cc,v 1.418 2006-11-10 18:12:01 Singular Exp $ */
 
 /*
@@ -5563 +5563 @@
 static BOOLEAN jjSTD_HILB_W(leftv res, leftv u, leftv v, leftv w)
 {
+  intvec *vw=(intvec *)w->Data(); // weights of vars
+  if (vw->length()!=currRing->N)
+  {
+    Werror("%d weights for %d variables",vw->length(),currRing->N);
+    return TRUE;
+  }
   ideal result;
   intvec *ww=(intvec *)atGet(u,"isHomog",INTVEC_CMD);
@@ -5586 +5592 @@
               (intvec *)v->Data(),  // hilbert series
               0,0,                  // syzComp, newIdeal
-              (intvec *)w->Data()); // weights of vars
+              vw);                  // weights of vars
   idSkipZeroes(result);
   res->data = (char *)result;
@@ -7952 +7958 @@
   //iiArithAddCmd("kkk", 1, 1234, CMD_1);
 #endif   /* !GENTABLE */
+  return 0;
 }