From: Laurent Mazet <mazet@softndesign.org>
Date: Tue, 14 Feb 2023 22:25:12 +0000 (+0100)
Subject: fix a memory leak
X-Git-Tag: v1.1~3^2~3
X-Git-Url: https://secure.softndesign.org/git/?a=commitdiff_plain;h=a3f2e6cf008678cfa2b1a868e38fefbe81009971;p=calc.git

fix a memory leak
---

diff --git a/workspace.c b/workspace.c
index 26bbe8a..9fc4d83 100644
--- a/workspace.c
+++ b/workspace.c
@@ -23,8 +23,17 @@ workspace_t *alloc_ws ()
 workspace_t *backup_ws (workspace_t *ws)
 {
     ws->answer = answer;
+    if (ws->argument) {
+        free_tab (ws->argument);
+    }
     ws->argument = copy_tab (argument);
+    if (ws->stack) {
+        free_tab (ws->stack);
+    }
     ws->stack = copy_tab (stack);
+    if (ws->storage) {
+        free_tab (ws->storage);
+    }
     ws->storage = copy_tab (storage);
     return ws;
 }