Changeset f7c2b3 in git for Singular

Timestamp:

Sep 15, 2022, 3:51:38 PM (20 months ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

d116de5c701c7155539389c638bc4d461829a375

Parents:

4e3e0a97b87e637f0f1ced5093d6b16d0cd68344

Message:

fix: delete(ideal,intvec)

File:

• Singular/iparith.cc (modified) (1 diff)

Singular/iparith.cc

@@ -1882 +1882 @@
   intvec *iv=(intvec*)v->Data();
   ideal I=(ideal)u->Data();
-  for(int i=iv->length();i>=0;i--)
+  ideal tmp1=NULL;
+  ideal tmp2;
+  for(int i=iv->length()-1;i>=0;i--)
   {
     int pos= (*iv)[i];
-    I=id_Delete_Pos(I,pos-1,currRing);
+    tmp2=id_Delete_Pos(I,pos-1,currRing);
+    if (tmp1==NULL) /* first entry */
+    { tmp1=I; }
+    else
+    { id_Delete(&I,currRing); }
+    I=tmp2;
     if (I==NULL) break;
   }