Changeset 7bdf71 in git for kernel/ring.cc

Timestamp:

Jul 28, 2009, 10:49:15 AM (14 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'd0474371d8c5d8068ab70bfb42719c97936b18a6')

Children:

11b6490b056dd2fc128f1ca13075d8022d3631d5

Parents:

590cbe1d1b333f8518c8758e95b1f116d5a0fa0a

Message:

*hannes: rCopy0 and copy_ideal


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

File:

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

kernel/ring.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ring.cc,v 1.124 2009-07-26 20:16:24 motsak Exp $ */
+/* $Id: ring.cc,v 1.125 2009-07-28 08:49:15 Singular Exp $ */
 
 /*
@@ -1645 +1645 @@
   if (r->qideal!=NULL)
   {
-    if (copy_qideal) res->qideal= idrCopyR_NoSort(r->qideal, r, res);
+    if (copy_qideal) 
+    {
+      #ifndef NDEBUG
+      if (!copy_ordering)
+        WerrorS("internal error: rCopy0(Q,TRUE,FALSE)");
+      else
+      #endif
+      {
+      #ifndef NDEBUG
+        WarnS("internal bad stuff: rCopy0(Q,TRUE,TRUE)");
+      #endif
+        rComplete(res);
+        res->qideal= idrCopyR_NoSort(r->qideal, r, res);
+        rUnComplete(res);
+      }
+    }
     //memset: else res->qideal = NULL;
   }