Changeset 053925 in git for Singular/ring.cc

Timestamp:

Nov 6, 1998, 3:44:16 PM (26 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '38dfc5131670d387a89455159ed1e071997eec94')

Children:

db48346598cb23c710233d2eba4c0d60e9f98ad2

Parents:

805b06c356b54d136cc6ca472533f7943cbd8a7a

Message:

* bug fix in ring check


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

File:

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

Singular/ring.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ring.cc,v 1.36 1998-11-04 17:32:25 obachman Exp $ */
+/* $Id: ring.cc,v 1.37 1998-11-06 14:44:16 obachman Exp $ */
 
 /*
@@ -52 +52 @@
 {
   /*------------ set global ring vars --------------------------------*/
-  rTest(r);
   currRing = r;
   currQuotient=NULL;
@@ -58 +57 @@
   if (r != NULL)
   {
-
+    rTest(r);
     if (complete)
     {
@@ -1911 +1910 @@
   if (r->VarOffset == NULL)
   {
-    Werror("Null ring VarOffset -- no rComplete (?) in n %s:%l\n", fn, l);
+    Werror("Null ring VarOffset -- no rComplete (?) in n %s:%d\n", fn, l);
     assume(0);
     return false;
@@ -1930 +1929 @@
          VarHighIndex != r->VarHighIndex)
   {
-    Werror("Wrong ring VarIndicies -- no rComplete (?) in n %s:%l\n", fn, l);
+    Werror("Wrong ring VarIndicies -- no rComplete (?) in n %s:%d\n", fn, l);
     assume(0);
     ok = FALSE;
@@ -1939 +1938 @@
     if (VarOffset[i] != r->VarOffset[i])
     {
-      Werror("Wrong VarOffset value at %d in %s:%l\n", i, fn, l);
+      Werror("Wrong VarOffset value at %d in %s:%d\n", i, fn, l);
       assume(0);
       ok = FALSE;
     }
   }
-  Free(VarOffset, (r->N + 1)*sizeof(int));
+  Free(r->VarOffset, (r->N + 1)*sizeof(int));
+  r->VarOffset = VarOffset;
   return ok;
 }