double *tmp = (double *) callocordie (nbops, sizeof (double));
memcpy (tmp, storage, storage_size * sizeof (double));
free (storage);
- storage = tmp;
- storage_size = nbops;
+ (programs + n)->storage = storage = tmp;
+ (programs + n)->storage_size = storage_size = nbops;
}
for (i = 0; i < nbops; i++) {
double val = evaluate_element (ops[i], 0);