From: Mazet Laurent <mazet@softndesign.org>
Date: Thu, 2 Feb 2023 00:09:45 +0000 (+0100)
Subject: correct a memory leak
X-Git-Tag: v1.0~17
X-Git-Url: https://secure.softndesign.org/git/?a=commitdiff_plain;h=6c89afbda7c4313c44203b44579fc4103e77ba94;hp=f50ed10b8c764e17158172ecc1b92de9239d173e;p=calc.git

correct a memory leak
---

diff --git a/parser.c b/parser.c
index e1e7926..9e7e510 100644
--- a/parser.c
+++ b/parser.c
@@ -826,8 +826,8 @@ double call (int id, int nbops, element_t **ops)
         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);