Changeset 36d61f0 in git


Ignore:
Timestamp:
Aug 1, 2016, 2:31:54 PM (8 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b52fc4b2495505785981d640dcf7eb3e456778ef')
Children:
2ca98b322f5cd4132f63aa412234febf9a402043bdea13167433c632044731eec2fb12149aa74a00
Parents:
7b03761efc366bdaf44e4ac64daa8ae01254efc5
Message:
fix: pLPshift/pmLPshift and tr. #767
Files:
3 added
2 edited

Legend:

Unmodified
Added
Removed
  • Tst/Short/ok_s.lst

    r7b0376 r36d61f0  
    6161bug_tr759
    6262bug_tr760_761
     63bug_tr767
    6364bug_genus_etc
    6465conv_bi
  • kernel/GBEngine/shiftgb.cc

    r7b0376 r36d61f0  
    164164
    165165  poly q  = NULL;
    166   poly pp = p; // pCopy(p);
     166  poly pp = p;
    167167  while (pp!=NULL)
    168168  {
    169     q = p_Add_q(q, pmLPshift(pp,sh,uptodeg,lV),currRing);
     169    poly h=pp;
    170170    pIter(pp);
    171   }
    172   /* delete pp? */
    173   p_Delete(&p,currRing);
    174   /* int version: returns TRUE if it was successful */
     171    pNext(h)=NULL;
     172    h=pmLPshift(h,sh,uptodeg,lV);
     173    q = p_Add_q(q, h,currRing);
     174  }
    175175  return(q);
    176176}
     
    202202  int *s=(int *)omAlloc0((currRing->N+1)*sizeof(int));
    203203  pGetExpV(p,e);
    204   number c = pGetCoeff(p);
    205204  int j;
    206205  for (j=1; j<=currRing->N; j++)
     
    211210    }
    212211  }
    213   poly m = pOne();
    214   pSetExpV(m,s);
     212  pSetExpV(p,s);
    215213  /*  pSetm(m); */ /* done in the pSetExpV */
    216   /* think on the component */
    217   pSetCoeff0(m,c);
    218214  freeT(e, currRing->N);
    219215  freeT(s, currRing->N);
    220   return(m);
     216  return(p);
    221217}
    222218
Note: See TracChangeset for help on using the changeset viewer.