shift of letterplace polynomial fails over integers (used to work in v3.1.7 and earlier)

[jakobkroeker.academic@…]

the following example fails in recent singular

  LIB("freegb.lib");
  ring r = integer,(x,y,z),dp;
  int uptodeg = 5; int lV = 3;
  def R = makeLetterplaceRing(uptodeg);
  setring R;
  poly f = x(1)*z(2)*y(3) - 2*z(1)*y(2) + 3*x(1);
  shiftPoly(f,1);
  shiftPoly(f,2);

output:

>   ring r = integer, x,y,z),dp;                                                                                                                             
>   int uptodeg = 5; int lV = 3;                                                                                                                             
>   def R = makeLetterplaceRing(uptodeg);                                                                                                                    
>   setring R;                                                                                                                                               
>   poly f = x(1)*z(2)*y(3) - 2*z(1)*y(2) + 3*x(1);                                                                                                          
>   shiftPoly(f,1);                                                                                                                                          
3065925832*x(2)*z(3)*y(4)-3065925824*z(2)*y(3)+3065925816*x(2)                                                                                               
>   shiftPoly(f,2);                                                                                                                                          
Singular : signal 11 (v: 4031):                                                                                                                              
current line:>>  return(system("stest",a,i,uptodeg,lV));<<                                                                                                   
Segment fault/Bus error occurred at 855e762 because of 15 (r:1468151213)                                                                                     
please inform the authors                                                                                                                                    
trying to restart...                                                                                                                                         
   ? error occurred in or before freegb.lib::shiftPoly line 2454: `  return(system("stest",a,i,uptodeg,lV));`                                                
   ? last reserved name was `system`                                                                                                                         
   ? leaving freegb.lib::shiftPoly
   skipping text from `;` error at token `)`
   ? leaving freegb.lib::shiftPoly
Auf Wiedersehen.

it works in version 3.1.7 and earlier:

>   ring r = integer,(x,y,z),dp;
>   int uptodeg = 5; int lV = 3;
>   def R = makeLetterplaceRing(uptodeg);
>   setring R;
>   poly f = x(1)*z(2)*y(3) - 2*z(1)*y(2) + 3*x(1);
>   shiftPoly(f,1);
x(2)*z(3)*y(4)-2*z(2)*y(3)+3*x(2)
>   shiftPoly(f,2);
x(3)*z(4)*y(5)-2*z(3)*y(4)+3*x(3)
> 

[hannes]

fixed with 36d61f07ab133fd386896763b697a66e352e67ba