Changeset 1af8ad in git for libpolys/polys/monomials/p_polys.cc

Timestamp:

Mar 25, 2021, 2:21:44 PM (3 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'c5facdfddea2addfd91babd8b9019161dea4b695')

Children:

281f9f2840a2fc658c50cae0b1a737435786544d

Parents:

c16bdef35175b236a3d32ddd0a323bd2a93183dd280aeceb2daee09b3e9e0ac398edcd7ec3ad779a

git-author:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2021-03-25 14:21:44+01:00

git-committer:

GitHub <noreply@github.com>2021-03-25 14:21:44+01:00

Message:

Merge pull request #1067 from mkoeppe/doc_set_PERL5LIB

doc/Makefile-docbuild.in: When setting PERLLIB, also set PERL5LIB

File:

• libpolys/polys/monomials/p_polys.cc (modified) (7 diffs)

libpolys/polys/monomials/p_polys.cc

@@ -683 +683 @@
 }
 
-long p_DegW(poly p, const short *w, const ring R)
+long p_DegW(poly p, const int *w, const ring R)
 {
   p_Test(p, R);
@@ -4427 +4427 @@
 }
 
-poly pp_JetW(poly p, int m, short *w, const ring R)
+poly pp_JetW(poly p, int m, int *w, const ring R)
 {
   poly r=NULL;
@@ -4454 +4454 @@
 }
 
-poly p_JetW(poly p, int m, short *w, const ring R)
+poly p_JetW(poly p, int m, int *w, const ring R)
 {
   while((p!=NULL) && (totaldegreeWecart_IV(p,R,w)>m)) p_LmDelete(&p,R);
@@ -4501 +4501 @@
   if(n==0)
     return v;
-  short *ww=iv2array(w,R);
+  int *ww=iv2array(w,R);
   poly u1=p_JetW(p_Sub(p_One(R),__p_Mult_nn(u,u0,R),R),n,ww,R);
   if(u1==NULL)
   {
-    omFreeSize((ADDRESS)ww,(rVar(R)+1)*sizeof(short));
+    omFreeSize((ADDRESS)ww,(rVar(R)+1)*sizeof(int));
     return v;
   }
@@ -4517 +4517 @@
   p_Delete(&u1,R);
   p_Delete(&v1,R);
-  omFreeSize((ADDRESS)ww,(rVar(R)+1)*sizeof(short));
+  omFreeSize((ADDRESS)ww,(rVar(R)+1)*sizeof(int));
   return v;
 }
@@ -4524 +4524 @@
 poly p_Series(int n,poly p,poly u, intvec *w, const ring R)
 {
-  short *ww=iv2array(w,R);
+  int *ww=iv2array(w,R);
   if(p!=NULL)
   {
@@ -4532 +4532 @@
       p=p_JetW(p_Mult_q(p,p_Invers(n-p_MinDeg(p,w,R),u,w,R),R),n,ww,R);
   }
-  omFreeSize((ADDRESS)ww,(rVar(R)+1)*sizeof(short));
+  omFreeSize((ADDRESS)ww,(rVar(R)+1)*sizeof(int));
   return p;
 }