Changeset d618f0 in git

Timestamp:

Apr 1, 2008, 5:21:47 PM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

88eb98e55f63a1cb33785aaf097683d7acde7438

Parents:

d3006b41f272ef1ed2a9a7faf6c27d1caecf1c86

Message:

*hannes: qring definition in a qring


git-svn-id: file:///usr/local/Singular/svn/trunk@10654 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.94 2008-03-19 17:44:33 Singular Exp $ */
+/* $Id: ipassign.cc,v 1.95 2008-04-01 15:21:47 Singular Exp $ */
 
 /*
@@ -577 +577 @@
   if (idElem(id)>1) assumeStdFlag(a);
   qr->qideal = id;
+  if (currRing->qideal!=NULL) /* we are already in a qring! */
+  {
+    ideal tmp=idAdd(id,currRing->qideal);
+    idDelete(&id);
+    id=tmp;
+  }
 
   // qr is a copy of currRing with the new qideal!