Merge branch 'master' into feature/typed-regex

1 files changed, 6 insertions, 1 deletions

diff --git a/awkgram.y b/awkgram.y
index 3a3fce31..7fc1f279 100644
--- a/awkgram.y
+++ b/awkgram.y
@@ -6302,7 +6302,12 @@ make_profile_number(double d, const char *str, size_t len)
 		n->stptr = estrdup(str, len + 1);
 		n->stptr[len] = '\0';
 		n->stlen = len;
-		n->flags |= NUMCONSTSTR;
+		// Set STRCUR and n->stfmt for use when profiling
+		// (i.e., actually running the program) so that
+		// force_string() on this item will work ok.
+		// Thanks and a tip of the hatlo to valgrind.
+		n->flags |= (NUMCONSTSTR|STRCUR);
+		n->stfmt = STFMT_UNUSED;
 	}
 
 	return n;