Re: list / pointers lost

[Karim Belabas <Karim.Belabas@math.u-psud.fr>]

* Ralf Stephan [2004-06-29 17:28]:
> Reading this into 2.2.8:
> /*************************** start */
> f(pol)=
> {
>   local(i,g,pr,p);
> 
>   i = 1;
>   g = gcd(pol, subst(pol, x, x+1));
>   pr = pol / subst(g, x, x-1);
>   p = listcreate(1000);
>   listput (p, gcd (pol/g, pr));
>   while (g<>1,
>     i = i + 1;
>     pol = g;
>     pr = pr / p[i-1];
>     g = subst (pol/pr, x, x+1);
>     listput (p, gcd (pol/g, pr))
>     );
>   p
> }
> 
> f((x-3)*(x-2)^2*(x+1)^4*(x+2)^2*(x+3)*(x+5)^3*(x+6))
> /*************************** end */
> 
> gives
>   ***   significant pointers are lost in gerepile !!! (please report)

t_LISTs were treated incorrectly in gerepile()  [ tried to update unused
components ]

Fixed in CVS.

    Karim.
-- 
Karim Belabas                     Tel: (+33) (0)1 69 15 57 48
Dep. de Mathematiques, Bat. 425   Fax: (+33) (0)1 69 15 60 19
Universite Paris-Sud              http://www.math.u-psud.fr/~belabas/
F-91405 Orsay (France)            http://pari.math.u-bordeaux.fr/  [PARI/GP]