Merge branch 'gawk-4.1-stable'

1 files changed, 1 insertions, 1 deletions

diff --git a/profile.c b/profile.c
index 9e4a9b02..43875600 100644
--- a/profile.c
+++ b/profile.c
@@ -1538,10 +1538,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();