Changeset 81418fb in git for Singular/ipassign.cc

Timestamp:

Jan 29, 2007, 7:34:45 PM (17 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '91e5db82acc17434e4062bcfa44e6efa7d41fd30')

Children:

e014ab39e9c9d69c1d418be693f8a61dbe474598

Parents:

58ac7d25b1f5752408c2e146213207f2b68a8be9

Message:

*hannes: qring=.../ideal=..


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

File:

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

Singular/ipassign.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipassign.cc,v 1.86 2007-01-29 16:56:56 Singular Exp $ */
+/* $Id: ipassign.cc,v 1.87 2007-01-29 18:34:45 Singular Exp $ */
 
 /*
@@ -433 +433 @@
 static BOOLEAN jiA_IDEAL(leftv res, leftv a, Subexpr e)
 {
-  if (currRing->minpoly!=NULL) {omCheckAddr(currRing->minpoly);}
   if (res->data!=NULL) idDelete((ideal*)&res->data);
-  if (currRing->minpoly!=NULL) {omCheckAddr(currRing->minpoly);}
   res->data=(void *)a->CopyD(MATRIX_CMD);
   idNormalize((ideal)res->data);
   jiAssignAttr(res,a);
+  if (((res->rtyp==IDEAL_CMD)||(res->rtyp==MODUL_CMD))
+  && (IDELEMS((ideal)(res->data))==1))
+  {
+    setFlag(res,FLAG_STD);
+  }
   return FALSE;
 }
@@ -565 +568 @@
   }
 
-  assumeStdFlag(a);
   ring qr=(ring)res->Data(); // the declaration allocated space
   ring qrr=rCopy(currRing); 
@@ -572 +574 @@
   omFreeBin((ADDRESS)qrr, ip_sring_bin);
   if (qr->qideal!=NULL) idDelete(&qr->qideal);
-  qr->qideal = (ideal)a->CopyD(IDEAL_CMD);
+  ideal id=(ideal)a->CopyD(IDEAL_CMD);
+  if (idElem(id)>1) assumeStdFlag(a);
+  qr->qideal = id;
 
   // qr is a copy of currRing with the new qideal!