Changeset 2f436b in git for Singular/ring.cc

Timestamp:

Dec 31, 2000, 4:14:47 PM (23 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

e609098c45a74ac91c002ffa7ece5eebe7f8c002

Parents:

33ec1145a109507ad3e3cf4a69a847b703358e93

Message:

* version 1-3-13: sparsemat improivements


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

File:

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

Singular/ring.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ring.cc,v 1.152 2000-12-20 11:15:48 obachman Exp $ */
+/* $Id: ring.cc,v 1.153 2000-12-31 15:14:43 obachman Exp $ */
 
 /*
@@ -1991 +1991 @@
 }
 
+// return TRUE if p_SetComp requires p_Setm
+BOOLEAN rOrd_SetCompRequiresSetm(ring r)
+{
+  if (r->typ != NULL)
+  {
+    int pos;
+    for (pos=0;pos<r->OrdSize;pos++)
+    {
+      sro_ord* o=&(r->typ[pos]);
+      if (o->ord_typ == ro_syzcomp || o->ord_typ == ro_syz) return TRUE;
+    }
+  }
+  return FALSE;
+}
+
 // return TRUE if p->exp[r->pOrdIndex] holds total degree of p */
 BOOLEAN rOrd_is_Totaldegree_Ordering(ring r =currRing)