From b60cdd6dc30f9f4845f43b7ca17a490233ec3918 Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Thu, 3 Mar 2016 20:55:06 +0200
Subject: Fix a compile warning in profile.c.

---
 profile.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'profile.c')

diff --git a/profile.c b/profile.c
index 178deb7e..842b04fb 100644
--- a/profile.c
+++ b/profile.c
@@ -1423,10 +1423,10 @@ pp_list(int nargs, const char *paren, const char *delim)
 		erealloc(pp_args, NODE **, (nargs + 2) * sizeof(NODE *), "pp_list");
 	}
 
+	delimlen = strlen(delim);
 	if (nargs == 0)
 		len = 2;
 	else {
-		delimlen = strlen(delim);
 		len = -delimlen;
 		for (i = 1; i <= nargs; i++) {
 			r = pp_args[i] = pp_pop();
-- 
cgit v1.2.3