openSUSE Build Service

Overview Repositories Revisions Requests Users Attributes Meta

File flint3.diff of Package e-antic (Revision 1ff4ba190383d7e0bc09ba2921427d83)

Currently displaying revision 1ff4ba190383d7e0bc09ba2921427d83 , Show latest

From: Jan Engelhardt <jengelh@inai.de>
Date: 2023-10-22 06:05:56.005185292 +0200

Copy functions from FLINT 2.9 [13042307357192c09630d276f0e7bf2abb9ffd39]
which have been removed in FLINT 3.0.

---
 libeantic/srcxx/renf_elem_class.cpp |   43 ++++++++++++++++++++++++++++++++++--
 1 file changed, 41 insertions(+), 2 deletions(-)

Index: e-antic-1.3.0/libeantic/srcxx/renf_elem_class.cpp
===================================================================
--- e-antic-1.3.0.orig/libeantic/srcxx/renf_elem_class.cpp
+++ e-antic-1.3.0/libeantic/srcxx/renf_elem_class.cpp
@@ -488,6 +488,45 @@ renf_elem_class::renf_elem_class(const r
     fmpq_poly_clear(p);
 }
 
+static void
+_fmpq_poly_set_array_mpq1(fmpz * poly, fmpz_t den, const mpq_t *a, slong n)
+{
+	mpz_t d, t;
+	mpz_init_set_ui(d, 1);
+	mpz_init(t);
+	for (slong i = 0; i < n; i++)
+		mpz_lcm(d, d, mpq_denref(a[i]));
+	for (slong i = 0; i < n; i++) {
+		__mpz_struct *ptr = _fmpz_promote(poly + i);
+		mpz_divexact(t, d, mpq_denref(a[i]));
+		mpz_mul(ptr, mpq_numref(a[i]), t);
+		_fmpz_demote_val(poly + i);
+	}
+	fmpz_set_mpz(den, d);
+	mpz_clear(d);
+	mpz_clear(t);
+}
+
+static void fmpq_poly_set_array_mpq1(fmpq_poly_t poly, const mpq_t *a, slong n)
+{
+	if (n == 0) {
+		fmpq_poly_zero(poly);
+		return;
+	}
+	fmpq_poly_fit_length(poly, n);
+	_fmpq_poly_set_array_mpq1(poly->coeffs, poly->den, a, n);
+	_fmpq_poly_set_length(poly, n);
+	_fmpq_poly_normalise(poly);
+}
+
+static void fmpq_poly_set_coeff_mpz1(fmpq_poly_t poly, slong n, const mpz_t x)
+{
+	fmpz_t f;
+	fmpz_init_set_readonly(f, x);
+	fmpq_poly_set_coeff_fmpz(poly, n, f);
+	fmpz_clear_readonly(f);
+}
+
 renf_elem_class::renf_elem_class(const renf_class& k, const std::vector<unsigned long> & coefficients)
     : renf_elem_class(k)
 {
@@ -512,7 +551,7 @@ renf_elem_class::renf_elem_class(const r
     fmpq_poly_t p;
     fmpq_poly_init(p);
     for (size_t i = 0; i < coefficients.size(); i++)
-        fmpq_poly_set_coeff_mpz(p, static_cast<slong>(i), coefficients[i].__get_mp());
+        fmpq_poly_set_coeff_mpz1(p, static_cast<slong>(i), coefficients[i].__get_mp());
 
     renf_elem_set_fmpq_poly(a, p, nf->renf_t());
     fmpq_poly_clear(p);
@@ -526,7 +565,7 @@ renf_elem_class::renf_elem_class(const r
 
     fmpq_poly_t p;
     fmpq_poly_init(p);
-    fmpq_poly_set_array_mpq(p, reinterpret_cast<const mpq_t*>(&coefficients[0]), coefficients.size());
+    fmpq_poly_set_array_mpq1(p, reinterpret_cast<const mpq_t*>(&coefficients[0]), coefficients.size());
 
     renf_elem_set_fmpq_poly(a, p, nf->renf_t());
     fmpq_poly_clear(p);

Places

File flint3.diff of Package e-antic (Revision 1ff4ba190383d7e0bc09ba2921427d83)

Places