Changeset e5dc2c2 in git for Singular/ipshell.cc

Timestamp:

Jul 27, 2007, 4:09:52 PM (17 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

a7f91065c48e086c635273382cebfdf90d711129

Parents:

c2d114a721855bee723ab1a7863cd9572537c545

Message:

*hannes: check wp/Wp weights


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

File:

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

Singular/ipshell.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipshell.cc,v 1.166 2007-07-27 13:37:21 Singular Exp $ */
+/* $Id: ipshell.cc,v 1.167 2007-07-27 14:09:52 Singular Exp $ */
 /*
 * ABSTRACT:
@@ -1917 +1917 @@
            for (i=0; i<iv->length();i++)
            {
-             if (((R->order[j]==ringorder_wp)
-               || (R->order[j]==ringorder_Wp))
-             && ((*iv)[i]<=0))
-             {
-               Werror("weight (var %d) for wp/Wp has to be positive, but is %d",i+1,(*iv)[i]);
-               goto rCompose_err;
-             }
              R->wvhdl[j][i]=(*iv)[i];
            }
@@ -4241 +4234 @@
             {
               R->wvhdl[n][i-2] = (*iv)[i];
-              if (((R->order[n]==ringorder_wp)
-                || (R->order[n]==ringorder_Wp))
-              && ((*iv)[i]<=0))
-              {
-                Werror("weight (var %d) for wp/Wp has to be positive, but is %d ",i+1,(*iv)[i]);
-                return TRUE;
-              }
             }
             R->block0[n] = last+1;