From 3a27cb43ba9bb6bae959bb3e7e0954659bf45509 Mon Sep 17 00:00:00 2001
From: h_vogt <h_vogt>
Date: Sat, 5 Nov 2016 12:54:28 +0100
Subject: [PATCH] inp.c, add loop to remove linked lists devtlist, modtlist

---
 src/frontend/inp.c | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/src/frontend/inp.c b/src/frontend/inp.c
index 8e6b47edd..5da108527 100644
--- a/src/frontend/inp.c
+++ b/src/frontend/inp.c
@@ -1846,17 +1846,22 @@ set_tlist(struct circ *curckt)
 void
 rem_tlist(void)
 {
-    if (devtlist) {
+    struct pt_temper *dmtmp;
+    while (devtlist) {
+        dmtmp = devtlist->next;
         tfree(devtlist->expression);
         wl_free(devtlist->wl);
         INPfreeTree((IFparseTree *) devtlist->pt);
         tfree(devtlist);
+        devtlist = dmtmp;
     }
-    if (modtlist) {
+    while (modtlist) {
+        dmtmp = modtlist->next;
         tfree(modtlist->expression);
         wl_free(modtlist->wl);
         INPfreeTree((IFparseTree *) modtlist->pt);
         tfree(modtlist);
+        modtlist = dmtmp;
     }
 }