Changeset 389000 in git

Timestamp:

Feb 4, 2002, 3:23:18 PM (22 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

143730551d27a93040ea2cf6e367f92279ad2276

Parents:

9b6b582ab79ae2b89b03ab2f5f7f3595a4cf2743

Message:

*hannes: added Werror to rCompose


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

File:

• Singular/ring.cc (modified) (7 diffs)

Singular/ring.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ring.cc,v 1.179 2002-01-20 10:01:48 Singular Exp $ */
+/* $Id: ring.cc,v 1.180 2002-02-04 14:23:18 Singular Exp $ */
 
 /*
@@ -4019 +4019 @@
     if (R->algring==NULL)
     {
+      WerrorS("could not create rational function coefficient field");
       goto rCompose_err;
     }
@@ -4027 +4028 @@
   else
   {
+    WerrorS("coefficient field must be described by `int` or `list`");
     goto rCompose_err;
   }
@@ -4045 +4047 @@
         while (i>=0) { omFree(R->names[i]); i--; }
         omFree(R->names);
+        Werror("var name %d must be `string`",i+1);
         goto rCompose_err;
       }
@@ -4051 +4054 @@
   else
   {
+    WerrorS("variable must be given as `list`");
     goto rCompose_err;
   }
@@ -4133 +4137 @@
         R->block1[j] = R->N;
       }
-      else goto rCompose_err;
+      else
+      {
+        Werror("ordering incomplete: size (%d) should be %d",R->block1[j],R->N);
+        goto rCompose_err;
+      }
     }
   }
   else
   {
+    WerrorS("ordering must be given as `list`");
     goto rCompose_err;
   }
@@ -4149 +4158 @@
   else
   {
+    WerrorS("q-ideal must be given as `ideal`");
     goto rCompose_err;
   }