Commit 7b0b805c authored by Peter Bruin's avatar Peter Bruin

remove duplicate variable

parent e42ae080
......@@ -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");
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment