Karim BELABAS on Tue, 19 Jan 1999 10:54:49 +0100 (MET) |
[Date Prev] [Date Next] [Thread Prev] [Thread Next] [Date Index] [Thread Index]
Re: nfgaloisconj() bug |
[Igor:] > the following is reproducible under Solaris with all post-2.0.11 > versions: > > ? nfgaloisconj(nfinit(x^3-x-1)) > *** bus error: bug in GP (please report). A typo which (in your case) asserted (x+1) == x ... Karim. *** src/basemath/base1.c.orig Mon Jan 18 18:35:40 1999 --- src/basemath/base1.c Tue Jan 19 10:52:13 1999 *************** *** 607,613 **** if (lgef(f) != n) { avma=av; return 0; } z = Fp_pow_mod_pol(polx[varn(f)], p, f, p); /* x^p = x mod (f(x),p) ? */ ! avma = av; return lgef(z)==4 && gcmp1((GEN)z[3]); } static GEN --- 607,613 ---- if (lgef(f) != n) { avma=av; return 0; } z = Fp_pow_mod_pol(polx[varn(f)], p, f, p); /* x^p = x mod (f(x),p) ? */ ! avma = av; return lgef(z)==4 && gcmp1((GEN)z[3]) && !signe(z[2]); } static GEN -- Karim Belabas email: Karim.Belabas@math.u-psud.fr Dep. de Mathematiques, Bat. 425 Universite Paris-Sud Tel: (00 33) 1 69 15 57 48 F-91405 Orsay (France) Fax: (00 33) 1 69 15 60 19 -- PARI/GP Home Page: http://pari.home.ml.org