hiro/arb
1
0
Fork 0
mirror of https://github.com/vale981/arb synced 2025-03-04 08:51:40 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

use the right format specifiers for slong and ulong

Browse source
This commit is contained in:
p15-git-acc 2020-11-12 16:41:19 -06:00
parent 85a8bd4767
commit 75cf01c68a
20 changed files with 37 additions and 33 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
acb_calc/integrate_gl_auto_deg.c
View file

@ -243,7 +243,7 @@ acb_calc_integrate_gl_auto_deg(acb_t res, slong * eval_count,
if (verbose)
{
acb_get_mag(tmpm, delta);
flint_printf(" {GL deg %ld on [", best_n);
flint_printf(" {GL deg %wd on [", best_n);
acb_printn(a, 10, ARB_STR_NO_RADIUS); flint_printf(", ");
acb_printn(b, 10, ARB_STR_NO_RADIUS);
flint_printf("], delta "); mag_printd(tmpm, 5);

6
acb_dft.h
View file

@ -317,7 +317,11 @@ acb_vec_printd_index(acb_srcptr vec, slong len, slong digits)
{
slong i;
for (i = 0; i < len; i++)
flint_printf("[%ld] ",i), acb_printd(vec + i, digits), flint_printf("\n");
{
flint_printf("[%wd] ", i);
acb_printd(vec + i, digits);
flint_printf("\n");
}
}
#ifdef __cplusplus

2
acb_dft/convol_rad2.c
View file

@ -19,7 +19,7 @@ acb_dft_convol_pad(acb_ptr fp, acb_ptr gp, acb_srcptr f, acb_srcptr g, slong n,
if (np < 2 * n - 1)
{
flint_printf("dft_convol_pad: overlapping padding %ld < 2*%ld-1\n", np, n);
flint_printf("dft_convol_pad: overlapping padding %wd < 2*%wd-1\n", np, n);
abort();
}

2
acb_dft/naive.c
View file

@ -82,7 +82,7 @@ _acb_dft_naive_init(acb_dft_naive_t pol, slong dv, acb_ptr z, slong dz, slong le
if (z == NULL)
{
if (DFT_VERB)
flint_printf("dft_naive: init z[%ld]\n",len);
flint_printf("dft_naive: init z[%wd]\n",len);
pol->z = _acb_vec_init(len);
_acb_vec_unit_roots(pol->z, -len, len, prec);
pol->dz = 1;

2
acb_dft/rad2_threaded.c
View file

@ -102,7 +102,7 @@ acb_dft_rad2_precomp_inplace_threaded(acb_ptr v, const acb_dft_rad2_t rad2, slon
}
if (i != t)
{
flint_printf("threaded dft error: unequal i=%ld t=%ld\n", i, t);
flint_printf("threaded dft error: unequal i=%wd t=%wd\n", i, t);
flint_abort();
}
for (i = 0; i < t; i++)

8
acb_dft/test/t-convol.c
View file

@ -23,8 +23,8 @@ check_vec_eq_prec(acb_srcptr w1, acb_srcptr w2, slong len, slong prec, slong dig
if (!acb_overlaps(w1 + i, w2 + i))
{
flint_printf("FAIL\n\n");
flint_printf("q = %wu, size = %wu\n", q, len);
flint_printf("\nDFT differ from index %ld / %ld \n", i, len);
flint_printf("q = %wu, size = %wd\n", q, len);
flint_printf("\nDFT differ from index %wd / %wd \n", i, len);
flint_printf("\n%s =\n", f1);
acb_vec_printd_index(w1, len, digits);
flint_printf("\n%s =\n", f2);
@ -37,12 +37,12 @@ check_vec_eq_prec(acb_srcptr w1, acb_srcptr w2, slong len, slong prec, slong dig
{
flint_printf("FAIL\n\n");
flint_printf("q = %wu\n", q);
flint_printf("\nDFT inaccurate from index %ld / %ld \n", i, len);
flint_printf("\nDFT inaccurate from index %wd / %wd \n", i, len);
flint_printf("\n%s =\n", f1);
acb_printd(w1 + i, digits);
flint_printf("\n%s =\n", f2);
acb_printd(w2 + i, digits);
flint_printf("\nerrors %ld & %ld [prec = %wu]\n",
flint_printf("\nerrors %wd & %wd [prec = %wd]\n",
acb_rel_accuracy_bits(w1 + i),
acb_rel_accuracy_bits(w2 + i), prec);
abort();

8
acb_dft/test/t-dft.c
View file

@ -23,8 +23,8 @@ check_vec_eq_prec(acb_srcptr w1, acb_srcptr w2, slong len, slong prec, slong dig
if (!acb_overlaps(w1 + i, w2 + i))
{
flint_printf("FAIL\n\n");
flint_printf("q = %wu, size = %wu\n", q, len);
flint_printf("\nDFT %s differ from index %ld / %ld \n", d, i, len);
flint_printf("q = %wu, size = %wd\n", q, len);
flint_printf("\nDFT %s differ from index %wd / %wd \n", d, i, len);
flint_printf("\n%s =\n", f1);
acb_vec_printd_index(w1, len, digits);
flint_printf("\n%s =\n", f2);
@ -37,12 +37,12 @@ check_vec_eq_prec(acb_srcptr w1, acb_srcptr w2, slong len, slong prec, slong dig
{
flint_printf("FAIL\n\n");
flint_printf("q = %wu\n", q);
flint_printf("\nDFT inaccurate from index %ld / %ld \n", i, len);
flint_printf("\nDFT inaccurate from index %wd / %wd \n", i, len);
flint_printf("\n%s =\n", f1);
acb_printd(w1 + i, digits);
flint_printf("\n%s =\n", f2);
acb_printd(w2 + i, digits);
flint_printf("\nerrors %ld & %ld [prec = %wu]\n",
flint_printf("\nerrors %wd & %wd [prec = %wd]\n",
acb_rel_accuracy_bits(w1 + i),
acb_rel_accuracy_bits(w2 + i), prec);
abort();

4
acb_dirichlet/platt_multieval.c
View file

@ -22,8 +22,8 @@ _acb_dot_arb(acb_t res, const acb_t initial, int subtract,
arb_srcptr b, c;
if (sizeof(acb_struct) != 2*sizeof(arb_struct))
{
flint_printf("expected sizeof(acb_struct)=%ld "
"to be twice sizeof(arb_struct)=%ld\n",
flint_printf("expected sizeof(acb_struct)=%zu "
"to be twice sizeof(arb_struct)=%zu\n",
sizeof(acb_struct), sizeof(arb_struct));
flint_abort();
}

2
acb_dirichlet/test/t-backlund_s_gram.c
View file

@ -54,7 +54,7 @@ int main()
flint_printf("FAIL: containment\n\n");
flint_printf("n = "); fmpz_print(n);
flint_printf(" prec1 = %wd prec2 = %wd\n\n", prec1, prec2);
flint_printf("S = %ld\n\n", S);
flint_printf("S = %wd\n\n", S);
flint_printf("t = "); arb_printn(t, 100, 0); flint_printf("\n\n");
flint_printf("x = "); arb_printn(x, 100, 0); flint_printf("\n\n");
flint_abort();

8
acb_dirichlet/test/t-dft.c
View file

@ -23,8 +23,8 @@ check_vec_eq_prec(acb_srcptr w1, acb_srcptr w2, slong len, slong prec, slong dig
if (!acb_overlaps(w1 + i, w2 + i))
{
flint_printf("FAIL\n\n");
flint_printf("q = %wu, size = %wu\n", q, len);
flint_printf("\nDFT differ from index %ld / %ld \n", i, len);
flint_printf("q = %wu, size = %wd\n", q, len);
flint_printf("\nDFT differ from index %wd / %wd \n", i, len);
flint_printf("\n%s =\n", f1);
acb_vec_printd(w1, len, digits);
flint_printf("\n%s =\n", f2);
@ -37,12 +37,12 @@ check_vec_eq_prec(acb_srcptr w1, acb_srcptr w2, slong len, slong prec, slong dig
{
flint_printf("FAIL\n\n");
flint_printf("q = %wu\n", q);
flint_printf("\nDFT inaccurate from index %ld / %ld \n", i, len);
flint_printf("\nDFT inaccurate from index %wd / %wd \n", i, len);
flint_printf("\nnaive =\n");
acb_printd(w1 + i, digits);
flint_printf("\nfast =\n");
acb_printd(w2 + i, digits);
flint_printf("\nerrors %ld & %ld [prec = %wu]\n",
flint_printf("\nerrors %wd & %wd [prec = %wd]\n",
acb_rel_accuracy_bits(w1 + i),
acb_rel_accuracy_bits(w2 + i), prec);
abort();

2
acb_dirichlet/test/t-l.c
View file

@ -52,7 +52,7 @@ int main()
if (!acb_overlaps(t, u))
{
flint_printf("FAIL: overlap\n\n");
flint_printf("iter = %ld q = %lu k = %lu prec = %ld\n\n", iter, q, k, prec);
flint_printf("iter = %wd q = %wu k = %wu prec = %wd\n\n", iter, q, k, prec);
flint_printf("s = "); acb_printn(s, 100, 0); flint_printf("\n\n");
flint_printf("t = "); acb_printn(t, 100, 0); flint_printf("\n\n");
flint_printf("u = "); acb_printn(u, 100, 0); flint_printf("\n\n");

2
acb_dirichlet/test/t-l_euler_product.c
View file

@ -63,7 +63,7 @@ int main()
if (!acb_overlaps(t, u))
{
flint_printf("FAIL: overlap\n\n");
flint_printf("iter = %ld q = %lu k = %lu prec = %ld\n\n", iter, q, k, prec);
flint_printf("iter = %wd q = %wu k = %wu prec = %wd\n\n", iter, q, k, prec);
flint_printf("s = "); acb_printn(s, 100, 0); flint_printf("\n\n");
flint_printf("t = "); acb_printn(t, 100, 0); flint_printf("\n\n");
flint_printf("u = "); acb_printn(u, 100, 0); flint_printf("\n\n");

2
acb_dirichlet/test/t-l_hurwitz.c
View file

@ -81,7 +81,7 @@ int main()
if (arb_set_str(acb_realref(x + j), x_r[j], prec) ||
arb_set_str(acb_imagref(x + j), x_i[j], prec) )
{
flint_printf("error while setting x[%ld] <- %s+I*%s\n",
flint_printf("error while setting x[%wd] <- %s+I*%s\n",
j, x_r[j], x_i[j]);
flint_abort();
}

2
acb_dirichlet/test/t-l_vec_hurwitz.c
View file

@ -93,7 +93,7 @@ int main()
acb_printd(z, 30);
flint_printf("\ndft =\n");
acb_printd(v + i, 30);
flint_printf("\nerrors %ld & %ld [prec = %wu]\n",
flint_printf("\nerrors %wd & %wd [prec = %wd]\n",
acb_rel_accuracy_bits(z),
acb_rel_accuracy_bits(v + i), prec);
abort();

4
acb_dirichlet/test/t-turing_method_bound.c
View file

@ -43,8 +43,8 @@ int main()
flint_printf("FAIL: increasing on p >= -1\n\n");
flint_printf("a = "); fmpz_print(a); flint_printf("\n\n");
flint_printf("b = "); fmpz_print(b); flint_printf("\n\n");
flint_printf("u = %lu\n", u);
flint_printf("v = %lu\n", v);
flint_printf("u = %wu\n", u);
flint_printf("v = %wu\n", v);
flint_abort();
}

4
acb_hypgeom/test/t-gamma_upper.c
View file

@ -22,8 +22,8 @@ _accuracy_regression_test(const acb_t s, const acb_t z,
acb_hypgeom_gamma_upper(g, s, z, regularized, prec);
if (acb_rel_accuracy_bits(g) < accuracy)
{
flint_printf("FAIL: accuracy regression in issue #%ld\n\n", issue);
flint_printf("prec = %d\n\n", prec);
flint_printf("FAIL: accuracy regression in issue #%wd\n\n", issue);
flint_printf("prec = %wd\n\n", prec);
flint_printf("regularized = %d\n\n", regularized);
flint_printf("s = "); acb_printd(s, 30); flint_printf("\n\n");
flint_printf("z = "); acb_printd(z, 30); flint_printf("\n\n");

2
arb/test/t-can_round_mpfr.c
View file

@ -62,7 +62,7 @@ int main()
if (r1 != r2 || !mpfr_equal_p(y1, y2))
{
flint_printf("FAIL! %ld\n");
flint_printf("FAIL!\n");
flint_printf("r1 = %d, r2 = %d, prec = %wd\n", r1, r2, prec);
flint_printf("x = "); mpfr_dump(x); flint_printf("\n");
flint_printf("y1 = "); mpfr_dump(y1); flint_printf("\n");

2
arb/test/t-sin_cos_arf_bb.c
View file

@ -138,7 +138,7 @@ int main()
if (arb_rel_accuracy_bits(s2) < prec - 2 || arb_rel_accuracy_bits(c2) < prec - 2)
{
flint_printf("FAIL: poor accuracy\n\n");
flint_printf("prec = %wd, acc1 = %wd, acc2 = %d\n\n",
flint_printf("prec = %wd, acc1 = %wd, acc2 = %wd\n\n",
prec, arb_rel_accuracy_bits(s2), arb_rel_accuracy_bits(c2));
flint_printf("x = "); arb_printn(x, 500, 0); flint_printf("\n\n");
flint_printf("s1 = "); arb_printn(s1, 500, 0); flint_printf("\n\n");

4
arb/test/t-sin_cos_arf_generic.c
View file

@ -91,7 +91,7 @@ int main()
(arb_rel_accuracy_bits(s2) < prec - 2 || arb_rel_accuracy_bits(c2) < prec - 2))
{
flint_printf("FAIL: poor accuracy\n\n");
flint_printf("prec = %wd, acc1 = %wd, acc2 = %d\n\n",
flint_printf("prec = %wd, acc1 = %wd, acc2 = %wd\n\n",
prec, arb_rel_accuracy_bits(s2), arb_rel_accuracy_bits(c2));
flint_printf("x = "); arb_printn(x, 500, 0); flint_printf("\n\n");
flint_printf("s1 = "); arb_printn(s1, 500, 0); flint_printf("\n\n");
@ -175,7 +175,7 @@ int main()
if (arb_rel_accuracy_bits(s2) < prec - 2 || arb_rel_accuracy_bits(c2) < prec - 2)
{
flint_printf("FAIL: poor accuracy\n\n");
flint_printf("prec = %wd, acc1 = %wd, acc2 = %d\n\n",
flint_printf("prec = %wd, acc1 = %wd, acc2 = %wd\n\n",
prec, arb_rel_accuracy_bits(s2), arb_rel_accuracy_bits(c2));
flint_printf("x = "); arb_printn(x, 500, 0); flint_printf("\n\n");
flint_printf("s1 = "); arb_printn(s1, 500, 0); flint_printf("\n\n");

2
arf/test/t-add_si.c
View file

@ -72,7 +72,7 @@ int main()
r2 = arf_add_si_naive(v, x, y, prec, rnd);
if (!arf_equal(z, v) || r1 != r2)
{
flint_printf("FAIL! (ha iter %ld, %ld)\n", iter, iter2);
flint_printf("FAIL! (ha iter %wd, %wd)\n", iter, iter2);
flint_printf("prec = %wd, rnd = %d\n\n", prec, rnd);
flint_printf("x = "); arf_print(x); flint_printf("\n\n");
flint_printf("y = "); flint_printf("%wd", y); flint_printf("\n\n");