From 124f0f47270dbe404228ae88c7ced82dec0ee20c Mon Sep 17 00:00:00 2001
From: rlar <rlar>
Date: Mon, 1 Oct 2012 21:03:53 +0200
Subject: [PATCH] com_write(), com_write_sparam(), com_cross(), cleanup storage
 more thoroughly

---
 src/frontend/postcoms.c | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

diff --git a/src/frontend/postcoms.c b/src/frontend/postcoms.c
index 0c306916b..6c9b2d11b 100644
--- a/src/frontend/postcoms.c
+++ b/src/frontend/postcoms.c
@@ -410,7 +410,7 @@ com_write(wordlist *wl)
     for (pn = names; pn; pn = pn->pn_next) {
         d = ft_evaluate(pn);
         if (!d)
-            return;
+            goto done;
         if (vecs)
             lv->v_link2 = d;
         else
@@ -506,6 +506,9 @@ com_write(wordlist *wl)
         /* If there are more plots we want them appended... */
         appendwrite = TRUE;
     }
+
+done:
+    free_pnode(names);
 }
 
 
@@ -552,7 +555,7 @@ com_write_sparam(wordlist *wl)
     for (pn = names; pn; pn = pn->pn_next) {
         d = ft_evaluate(pn);
         if (!d)
-            return;
+            goto done;
 
         if (vecs)
             lv->v_link2 = d;
@@ -568,7 +571,7 @@ com_write_sparam(wordlist *wl)
         Rbaseval = Rbasevec->v_realdata[0];
     } else {
         fprintf(stderr, "Error: No Rbase vector given\n");
-        return;
+        goto done;
     }
 
     /* Now we have to write them out plot by plot. */
@@ -654,6 +657,9 @@ com_write_sparam(wordlist *wl)
         /* If there are more plots we want them appended... */
         appendwrite = TRUE;
     }
+
+done:
+    free_pnode(names);
 }
 
 
@@ -711,7 +717,7 @@ com_cross(wordlist *wl)
     names = ft_getpnames(wl, TRUE);
     for (pn = names; pn; pn = pn->pn_next) {
         if ((n = ft_evaluate(pn)) == NULL)
-            return;
+            goto done;
 
         if (!vecs)
             vecs = lv = n;
@@ -762,6 +768,9 @@ com_cross(wordlist *wl)
     vec_new(v);
     v->v_flags |= VF_PERMANENT;
     cp_addkword(CT_VECTOR, v->v_name);
+
+done:
+    free_pnode(names);
 }