Date: Sunday, March 28, 2021 @ 12:34:08 Author: arojas Revision: 906803
Backport fix for rnfdisc Added: pari/trunk/pari-rnfdisc.patch Modified: pari/trunk/PKGBUILD --------------------+ PKGBUILD | 9 ++++++--- pari-rnfdisc.patch | 19 +++++++++++++++++++ 2 files changed, 25 insertions(+), 3 deletions(-) Modified: PKGBUILD =================================================================== --- PKGBUILD 2021-03-28 12:32:24 UTC (rev 906802) +++ PKGBUILD 2021-03-28 12:34:08 UTC (rev 906803) @@ -3,7 +3,7 @@ pkgname=pari pkgver=2.13.1 -pkgrel=1 +pkgrel=2 pkgdesc='Computer algebra system designed for fast computations in number theory' url='https://pari.math.u-bordeaux.fr/' license=(GPL) @@ -15,14 +15,17 @@ 'pari-galdata: to compute Galois groups in degrees 8 through 11' 'pari-seadata: needed by ellap for large primes' 'pari-galpol: GALPOL database of polynomials defining Galois extensions of the rationals') -source=("https://pari.math.u-bordeaux.fr/pub/pari/unix/$pkgname-$pkgver.tar.gz"{,.asc}) +source=("https://pari.math.u-bordeaux.fr/pub/pari/unix/$pkgname-$pkgver.tar.gz"{,.asc} + pari-rnfdisc.patch) sha256sums=('81ecf7d70ccdaae230165cff627c9ce2ec297b8f22f9f40742279d85f86dfcb1' - 'SKIP') + 'SKIP' + '4ddd27fa348d5c00b9a668c1122461488ad719ad31a397ed9b49fb14f6599d94') validpgpkeys=('42028EA404A2E9D80AC453148F0E7C2B4522E387') prepare() { cd $pkgname-$pkgver + patch -p1 < ../pari-rnfdisc.patch # https://pari.math.u-bordeaux.fr/cgi-bin/bugreport.cgi?bug=2284 sed -e 's|DLLDFLAGS = \$DLLDFLAGS|DLLDFLAGS = $DLLDFLAGS $LDFLAGS|' -i config/Makefile.SH # Honor system LDFLAGS } Added: pari-rnfdisc.patch =================================================================== --- pari-rnfdisc.patch (rev 0) +++ pari-rnfdisc.patch 2021-03-28 12:34:08 UTC (rev 906803) @@ -0,0 +1,19 @@ +From 3edb98db78dd49bb8b4137b46781a7cd570c2556 Mon Sep 17 00:00:00 2001 +From: Bill Allombert <[email protected]> +Date: Sun, 28 Mar 2021 13:27:24 +0200 +Subject: [PATCH] rnfdisc_factored: remove spurious Q_primpart [#2284] + +diff --git a/src/basemath/base2.c b/src/basemath/base2.c +index b2b63ada5..531f5c558 100644 +--- a/src/basemath/base2.c ++++ b/src/basemath/base2.c +@@ -3582,7 +3582,7 @@ rnfdisc_factored(GEN nf, GEN pol, GEN *pd) + + nf = checknf(nf); + pol = rnfdisc_get_T(nf, pol, &lim); +- disc = nf_to_scalar_or_basis(nf, nfX_disc(nf, Q_primpart(pol))); ++ disc = nf_to_scalar_or_basis(nf, nfX_disc(nf, pol)); + pol = nfX_to_monic(nf, pol, NULL); + fa = idealfactor_partial(nf, disc, lim); + P = gel(fa,1); l = lg(P); +
