Changeset f4cdb9 in git

Timestamp:

Aug 17, 2000, 6:45:57 PM (24 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

c27956fe36110f606d89715478bf953a97316957

Parents:

669c51442a16c41910421f35fef5552d92373ad7

Message:

* hannes: idXXX-fixes (test for partial SB)


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

File:

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

Singular/ideals.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ideals.cc,v 1.99 2000-08-14 14:35:51 Singular Exp $ */
+/* $Id: ideals.cc,v 1.100 2000-08-17 16:45:57 Singular Exp $ */
 /*
 * ABSTRACT - all basic methods to manipulate ideals
@@ -1492 +1492 @@
   {
     idDelete(&s_h1);
-    for (j=0; j<IDELEMS(s_h3); j++)
-    {
-      if (s_h3->m[j] != NULL)
-      {
-        if (pMinComp(s_h3->m[j],syz_ring) > k)
-          pShift(&s_h3->m[j], -k);
-        else
-          pDelete(&s_h3->m[j]);
-      }
-    }
     idSkipZeroes(s_h3);
-    s_h3->rank -= k;
     rChangeCurrRing(orig_ring, TRUE);
     s_h3 = idrMoveR_NoSort(s_h3, syz_ring);
@@ -1511 +1500 @@
   }
 
-  ideal e = idInit(IDELEMS(s_h3), s_h3->rank);
-
-  for (j=0; j<IDELEMS(s_h3); j++)
-  {
-    if (s_h3->m[j] != NULL)
-    {
-      if (pMinComp(s_h3->m[j],syz_ring) <= k)
-      {
-        e->m[j] = s_h3->m[j];
-        pDelete(&pNext(s_h3->m[j]));
-        s_h3->m[j] = NULL;
-      }
-    }
-  }
-
   idSkipZeroes(s_h3);
-  idDelete(&e);
   idTest(s_h3);
   return s_h3;