From 933280138213634865a7f667b01b97116baaa53e Mon Sep 17 00:00:00 2001
From: Holger Vogt <holger.vogt@uni-due.de>
Date: Sat, 25 Aug 2018 00:38:26 +0200
Subject: [PATCH] free the original wlist, made by getcommand(), not a derived
 wlist that is just part of the original

---
 src/frontend/control.c | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/src/frontend/control.c b/src/frontend/control.c
index 0c09043aa..68fd0e8c9 100644
--- a/src/frontend/control.c
+++ b/src/frontend/control.c
@@ -620,7 +620,7 @@ getcommand(char *string)
 int
 cp_evloop(char *string)
 {
-    wordlist *wlist, *ww;
+    wordlist *wlist, *ww, *freewl;
     struct control *x;
     char *i;
     int nn;
@@ -635,7 +635,7 @@ cp_evloop(char *string)
     } while(0)
 
     for (;;) {
-        wlist = getcommand(string);
+        freewl = wlist = getcommand(string);
         if (wlist == NULL) {    /* End of file or end of user input. */
             if (cend[stackp]->co_parent && !string) {
                 cp_resetcontrol();
@@ -748,7 +748,7 @@ cp_evloop(char *string)
                 fprintf(stderr,
                         "Error: missing foreach variable.\n");
             }
-            wlist = cp_doglob(wlist);  /*CDHW Possible leak around here? */
+            wlist = cp_doglob(wlist);
             cend[stackp]->co_text = wl_copy(wlist);
             newblock;
         } else if (eq(wlist->wl_word, "label")) {
@@ -864,8 +864,7 @@ cp_evloop(char *string)
                     x = x->co_next;
             } while (x);
         }
-        wl_free(wlist);
-        wlist = NULL;
+        wl_free(freewl);
         if (string)
             return (1); /* The return value is irrelevant. */
     }