Changeset 36d61f0 in git

Timestamp:

Aug 1, 2016, 2:31:54 PM (7 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '8d54773d6c9e2f1d2593a28bc68b7eeab54ed529')

Children:

2ca98b322f5cd4132f63aa412234febf9a402043bdea13167433c632044731eec2fb12149aa74a00

Parents:

7b03761efc366bdaf44e4ac64daa8ae01254efc5

Message:

fix: pLPshift/pmLPshift and tr. #767

Files:

• Tst/Short/bug_tr767.res.gz.uu (added)
• Tst/Short/bug_tr767.stat (added)
• Tst/Short/bug_tr767.tst (added)
• Tst/Short/ok_s.lst (modified) (1 diff)
• kernel/GBEngine/shiftgb.cc (modified) (3 diffs)

Tst/Short/ok_s.lst

@@ -61 +61 @@
 bug_tr759
 bug_tr760_761
+bug_tr767
 bug_genus_etc
 conv_bi

kernel/GBEngine/shiftgb.cc

@@ -164 +164 @@
 
   poly q  = NULL;
-  poly pp = p; // pCopy(p);
+  poly pp = p;
   while (pp!=NULL)
   {
-    q = p_Add_q(q, pmLPshift(pp,sh,uptodeg,lV),currRing);
+    poly h=pp;
     pIter(pp);
-  }
-  /* delete pp? */
-  p_Delete(&p,currRing);
-  /* int version: returns TRUE if it was successful */
+    pNext(h)=NULL;
+    h=pmLPshift(h,sh,uptodeg,lV);
+    q = p_Add_q(q, h,currRing);
+  }
   return(q);
 }
@@ -202 +202 @@
   int *s=(int *)omAlloc0((currRing->N+1)*sizeof(int));
   pGetExpV(p,e);
-  number c = pGetCoeff(p);
   int j;
   for (j=1; j<=currRing->N; j++)
@@ -211 +210 @@
     }
   }
-  poly m = pOne();
-  pSetExpV(m,s);
+  pSetExpV(p,s);
   /*  pSetm(m); */ /* done in the pSetExpV */
-  /* think on the component */
-  pSetCoeff0(m,c);
   freeT(e, currRing->N);
   freeT(s, currRing->N);
-  return(m);
+  return(p);
 }