example crashes by repeated call to primdecGTZ(). Memory management bug?

[kroeker@…]

Repeated call to primdecGTZ() with the following example leads to a segfault. Memory management issue?

LIB("primdec.lib");

proc runExample()
{
  ring rng = (0),(x,y,z,w),(wp(3,1),wp(4,4),C);
  short = 0 ;
  option(redSB) ;
  ideal J =20/3*x^2*y*z+3*x^2*z^2*w+25*x*z^2*w^2,23/37*x^3-21/16*x*y*z*w^2+5/29;
  def L = primdecGTZ(J);
}


proc repeat(n)
{
  int i;

  for (i=1;i<n;i++)
  {
     dbprint(1,"crashes at i= ",i);
     runExample();
  }
}

repeat(100);

[Oleksandr]

Memory corruption?

[hannes]

fixed with 4132ee2e5b539d15463dcf3db09fbf9aa7c00877 and previous