Changeset 9f07815 in git for Singular/ring.cc

Timestamp:

Feb 6, 2002, 2:10:30 PM (21 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0604212ebb110535022efecad887940825b97c3f')

Children:

74aa7851037f82da44c26b4ec2902e01ceb54712

Parents:

f690f40477bdfa44989a82d0ade11dec32b47794

Message:

*hannes: rDecompose: more comments


git-svn-id: file:///usr/local/Singular/svn/trunk@5846 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.182 2002-02-05 09:32:21 Singular Exp $ */
+/* $Id: ring.cc,v 1.183 2002-02-06 13:10:30 Singular Exp $ */
 
 /*
@@ -3929 +3929 @@
   // 0: char/ cf - ring
   // 1: list (var)
-  // 3: list (ord)
-  // 4: qideal
+  // 2: list (ord)
+  // 3: qideal
   lists L=(lists)omAlloc0Bin(slists_bin);
   L->Init(4);
   // ----------------------------------------
+  // 0: char/ cf - ring
   #if 0 /* TODO */
   if (rIsExtension(r))
@@ -3944 +3945 @@
   }
   // ----------------------------------------
+  // 1: list (var)
   lists LL=(lists)omAlloc0Bin(slists_bin);
-  L->m[1].rtyp=LIST_CMD;
-  L->m[1].data=(void *)LL;
   LL->Init(r->N);
   int i;
@@ -3954 +3954 @@
     LL->m[i].data=(void *)omStrDup(r->names[i]);
   }
+  L->m[1].rtyp=LIST_CMD;
+  L->m[1].data=(void *)LL;
   // ----------------------------------------
+  // 2: list (ord)
   LL=(lists)omAlloc0Bin(slists_bin);
-  L->m[2].rtyp=LIST_CMD;
-  L->m[2].data=(void *)LL;
   LL->Init((i=rBlocks(r)-1));
   lists LLL;
@@ -3993 +3994 @@
     LL->m[i].data=(void *)LLL;
   }
+  L->m[2].rtyp=LIST_CMD;
+  L->m[2].data=(void *)LL;
   // ----------------------------------------
+  // 3: qideal
   L->m[3].rtyp=IDEAL_CMD;
   if (r->qideal==NULL)
@@ -3999 +4003 @@
   else
     L->m[3].data=(void *)idCopy(r->qideal);
+  // ----------------------------------------
   return L;
 }