From 7b0b805c5c979e0a4f9540d970ec7c960af943b5 Mon Sep 17 00:00:00 2001 From: Peter Bruin Date: Tue, 19 Feb 2019 09:05:46 +0100 Subject: [PATCH] remove duplicate variable --- modcurve/torsion-subscheme.c | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/modcurve/torsion-subscheme.c b/modcurve/torsion-subscheme.c index c0a19e2..97f44dc 100644 --- a/modcurve/torsion-subscheme.c +++ b/modcurve/torsion-subscheme.c @@ -281,12 +281,11 @@ eval_function(GEN J, GEN D, GEN multiples_O, long *w) { static GEN values_from_basis(GEN J, GEN V1, GEN V2, long l, GEN multiples_O) { - pari_sp av = avma, av1; + pari_sp av = avma; long i, j, w, W = 0; GEN D, V; err_printf("computing function values:"); - av1 = avma; V = zeromatcopy(l, l); for (i = 0; i < l; i++) { for (j = 0; j < l; j++) { @@ -295,8 +294,8 @@ values_from_basis(GEN J, GEN V1, GEN V2, long l, GEN multiples_O) { D = jacobian_addflip(J, gel(V1, i + 1), gel(V2, j + 1)); gcoeff(V, i + 1, j + 1) = eval_function(J, D, multiples_O, &w); W += w; - if (gc_needed(av1, 1)) - V = gerepilecopy(av1, V); + if (gc_needed(av, 1)) + V = gerepilecopy(av, V); } } err_printf("\n"); -- GitLab