Changeset 6cb1d1 in git for Singular

Timestamp:

Jun 10, 2008, 12:32:10 PM (16 years ago)

Author:

Motsak Oleksandr <motsak@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

3f78cb0996cbc01825a95eb39c78d6d256a5b9a6

Parents:

7234766a762552b692e77a91f024bc0c5035587f

Message:

*motsak: minor changes in qring...


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

File:

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

Singular/ipassign.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipassign.cc,v 1.96 2008-04-01 16:32:40 Singular Exp $ */
+/* $Id: ipassign.cc,v 1.97 2008-06-10 10:32:10 motsak Exp $ */
 
 /*
@@ -536 +536 @@
   memcpy4(qr,qrr,sizeof(ip_sring));
   omFreeBin((ADDRESS)qrr, ip_sring_bin);
-  if (qr->qideal!=NULL) idDelete(&qr->qideal);
+
+  // delete the qr copy of quotient ideal!!!
+  if (qr->qideal!=NULL) idDelete(&qr->qideal); 
+
   ideal id=(ideal)a->CopyD(IDEAL_CMD);
-  if (idElem(id)>1) assumeStdFlag(a);
+
+  if ((idElem(id)>1) || rIsSCA(currRing) || (currRing->qideal!=NULL)) 
+    assumeStdFlag(a);
+
   if (currRing->qideal!=NULL) /* we are already in a qring! */
   {