Changeset e6f922f in git for Singular/ipshell.cc

Timestamp:

Jun 7, 2005, 11:17:35 AM (18 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

0a5ca730b1b89c3ce6ac8f1f6af48f1029041ad0

Parents:

0c4a34b0c9f4588e0413710444640dacdfbc4b93

Message:

*hannes: fixed q-ideal with different mon. representations


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

File:

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

Singular/ipshell.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipshell.cc,v 1.116 2005-05-23 13:27:23 Singular Exp $ */
+/* $Id: ipshell.cc,v 1.117 2005-06-07 09:17:35 Singular Exp $ */
 /*
 * ABSTRACT:
@@ -20 +20 @@
 #include "febase.h"
 #include "polys.h"
+#include "prCopy.h"
 #include "ideals.h"
 #include "matpol.h"
@@ -1967 +1968 @@
   }
   // ------------------------ Q-IDEAL ------------------------
+  rComplete(R);
+
   if (L->m[3].Typ()==IDEAL_CMD)
   {
     ideal q=(ideal)L->m[3].Data();
     if (q->m[0]!=NULL)
-      R->qideal=idCopy(q);
+      R->qideal=idrCopyR(q,currRing,R);
   }
   else
@@ -1979 +1982 @@
   }
 
-  // todo
-  rComplete(R);
 
   // ---------------------------------------------------------------