From 365e04460d9ae4bfc3d48af912f60a9eb4527ed4 Mon Sep 17 00:00:00 2001
From: Clint Adams <clint@users.sourceforge.net>
Date: Thu, 23 Oct 2008 00:48:59 +0000
Subject: 25926: free val only after it may be passed to strlen (as in 25656).

---
 Src/params.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Src/params.c')

diff --git a/Src/params.c b/Src/params.c
index 71cb2a907..0faf667b9 100644
--- a/Src/params.c
+++ b/Src/params.c
@@ -2253,10 +2253,10 @@ setstrvalue(Value v, char *val)
 	    mnumber mn = matheval(val);
 	    v->pm->gsu.f->setfn(v->pm, (mn.type & MN_FLOAT) ? mn.u.d :
 			       (double)mn.u.l);
-	    zsfree(val);
 	    if ((v->pm->node.flags & (PM_LEFT | PM_RIGHT_B | PM_RIGHT_Z)) &&
 		!v->pm->width)
 		v->pm->width = strlen(val);
+	    zsfree(val);
 	}
 	break;
     case PM_ARRAY:
-- 
cgit 1.4.1