Changeset efda016 in git

Timestamp:

Oct 18, 1999, 7:56:20 PM (25 years ago)

Author:

Thomas Siebert <siebert@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

27e6a4b8bcb65e731ee5db94bacabd64e0a9b4c2

Parents:

2efd9799400e295cc2665e2e9d80ac7e7e4bb397

Message:

Fix Hannes' error in regularity


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

File:

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

Singular/ideals.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ideals.cc,v 1.61 1999-10-15 16:00:18 Singular Exp $ */
+/* $Id: ideals.cc,v 1.62 1999-10-18 17:56:20 siebert Exp $ */
 /*
 * ABSTRACT - all basic methods to manipulate ideals
@@ -1422 +1422 @@
         {
           p=s_h3->m[j];
-          s_h3->m[j]=NULL;
         }
         else
         {
           p = pPermPoly(s_h3->m[j],NULL,syz_ring,NULL,0);
+          rChangeCurrRing(syz_ring,FALSE);
+          pDelete(&(s_h3->m[j]));
+          rChangeCurrRing(orig_ring,TRUE);
         }
+        s_h3->m[j]=NULL;
         pShift(&p,-k);
         if (p!=NULL)