Changeset 41f495 in git

Timestamp:

Mar 5, 2001, 7:25:47 PM (22 years ago)

Author:

Mathias Schulze <mschulze@…>

Branches:

(u'spielwiese', '8d54773d6c9e2f1d2593a28bc68b7eeab54ed529')

Children:

65b27c5c9be783dc3dacb25081a2b1227c9d5425

Parents:

e4743bc491fb7b8defc40d2bed3417da0c567fba

Message:

*mschulze: corrected assumeStdFlag for reduce


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

File:

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

Singular/iparith.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iparith.cc,v 1.259 2001-03-05 16:43:14 mschulze Exp $ */
+/* $Id: iparith.cc,v 1.260 2001-03-05 18:25:47 mschulze Exp $ */
 
 /*
@@ -4163 +4163 @@
   if (!pIsUnit((poly)v->Data()))
   {
-    WerrorS("2rd argument must be a unit");
+    WerrorS("2nd argument must be a unit");
     return TRUE;
   }
@@ -4179 +4179 @@
   if (!mpIsDiagUnit((matrix)v->Data()))
   {
-    WerrorS("2rd argument must be a diagonal matrix of units");
+    WerrorS("2nd argument must be a diagonal matrix of units");
     return TRUE;
   }
@@ -4426 +4426 @@
 static BOOLEAN jjREDUCE3_CP(leftv res, leftv u, leftv v, leftv w)
 {
-  assumeStdFlag(v);
-  if (!idIsZeroDim((ideal)v->Data()))
+  assumeStdFlag(w);
+  if (!idIsZeroDim((ideal)w->Data()))
   {
     Werror("`%s` must be 0-dimensional",v->Name());
@@ -4438 +4438 @@
 static BOOLEAN jjREDUCE3_CID(leftv res, leftv u, leftv v, leftv w)
 {
-  assumeStdFlag(v);
-  if (!idIsZeroDim((ideal)v->Data()))
+  assumeStdFlag(w);
+  if (!idIsZeroDim((ideal)w->Data()))
   {
     Werror("`%s` must be 0-dimensional",v->Name());
@@ -5017 +5017 @@
      (u4->Typ()==INT_CMD))
   {
+    assumeStdFlag(u3);
     if(!mpIsDiagUnit((matrix)u2->Data()))
     {
-      Werror("2rd argument must be a diagonal matrix of units");
+      Werror("2nd argument must be a diagonal matrix of units");
       return TRUE;
     }
@@ -5031 +5032 @@
      (u4->Typ()==INT_CMD))
   {
+    assumeStdFlag(u3);
     if(!pIsUnit((poly)u2->Data()))
     {
-      Werror("2rd argument must be a unit");
+      Werror("2nd argument must be a unit");
       return TRUE;
     }
@@ -5057 +5059 @@
      (u4->Typ()==INT_CMD)&&(u5->Typ()==INTVEC_CMD))
   {
+    assumeStdFlag(u3);
     if(!mpIsDiagUnit((matrix)u2->Data()))
     {
-      Werror("2rd argument must be a diagonal matrix of units");
+      Werror("2nd argument must be a diagonal matrix of units");
       return TRUE;
     }
@@ -5072 +5075 @@
      (u4->Typ()==INT_CMD)&&(u5->Typ()==INTVEC_CMD))
   {
+    assumeStdFlag(u3);
     if(!pIsUnit((poly)u2->Data()))
     {
-      Werror("2rd argument must be a unit");
+      Werror("2nd argument must be a unit");
       return TRUE;
     }