Changeset 68d2ea8 in git

Timestamp:

Jul 27, 2007, 3:27:44 PM (17 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

c2d114a721855bee723ab1a7863cd9572537c545

Parents:

c1b1ce77bf938cdeefc430f3292c773aceffc3b4

Message:

*hannes: check wp/Wp weights


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

File:

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

Singular/ipshell.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipshell.cc,v 1.164 2007-07-24 12:21:26 Singular Exp $ */
+/* $Id: ipshell.cc,v 1.165 2007-07-27 13:27:44 Singular Exp $ */
 /*
 * ABSTRACT:
@@ -1915 +1915 @@
          case ringorder_Wp:
            R->wvhdl[j] =( int *)omAlloc((iv->length())*sizeof(int));
-           for (i=0; i<iv->length();i++) R->wvhdl[j][i]=(*iv)[i];
+           for (i=0; i<iv->length();i++) 
+           {
+             if (((R->order[j]==ringorder_wp)
+               || (R->order[j]==ringorder_Wp))
+             && ((*iv)[i]<=0))
+               // ERROR: wp/Wp entries have to be positive
+             {
+               Werror("weight (var %d) for wp/Wp has to be positive: ",i+1,(*iv)[i]);
+               goto rCompose_err;
+             }
+             R->wvhdl[j][i]=(*iv)[i];
+           }
            break;
          case ringorder_M: