Changeset 1be9c5b in git for kernel

Timestamp:

Apr 21, 2017, 3:56:29 PM (7 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

4e1f7a85f1ef34459fd2d1724b93f00c5ec676e5

Parents:

f43d9e26f300baae8ecc6180a5ad325a7d9cea21

Message:

simplified syz.cc

File:

• kernel/GBEngine/syz.cc (modified) (6 diffs)

kernel/GBEngine/syz.cc

@@ -88 +88 @@
                       tHomog h=isNotHomog)
 {
-  ideal deg0=NULL;
   poly Unit1,Unit2,actWith;
   int len,i,j,ModComp,m,k,l;
@@ -97 +96 @@
   /*minim is TRUE, we are in the module: maxlength, maxlength <>0*/
   {
-    deg0=id_Jet(syz,0,currRing);
+    ideal deg0=id_Jet(syz,0,currRing);
     idSkipZeroes(deg0);
+    id_Delete(&syz,currRing);
     syz=deg0;
   }
@@ -213 +213 @@
   idSkipZeroes(mod);
   idSkipZeroes(syz);
-  if (deg0!=NULL)
-    idDelete(&deg0);
 }
 
@@ -397 +395 @@
   BITSET save1;
   SI_SAVE_OPT1(save1);
-  resolvente res;
   resolvente newres;
   tHomog hom=isNotHomog;
-  ideal temp=NULL;
   intvec *w = NULL,**tempW;
   int i,k,syzIndex = 0,j,rk_arg=si_max(1,(int)id_RankFreeModule(arg,currRing));
@@ -418 +414 @@
     *weights=wtmp;
   }
-  res = (resolvente)omAlloc0((*length)*sizeof(ideal));
+  resolvente res = (resolvente)omAlloc0((*length)*sizeof(ideal));
 
 /*--- initialize the syzygy-ring -----------------------------*/
@@ -523 +519 @@
     if (minim || (syzIndex!=0))
     {
-      temp = kInterRedOld(res[syzIndex],currRing->qideal);
+      ideal temp = kInterRedOld(res[syzIndex],currRing->qideal);
       idDelete(&res[syzIndex]);
       idSkipZeroes(temp);
       res[syzIndex] = temp;
     }
-    temp = NULL;
 /*--- computing the syzygy modules --------------------------------*/
     if ((currRing->qideal==NULL)&&(syzIndex==0)&& (!TEST_OPT_DEGBOUND))