From 12bff814007d0cde8d0b08eaaf0bcfd385c668ac Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Fri, 1 Apr 2022 16:04:03 +0300
Subject: Small fixes from the persistent-gawk team.

---
 profile.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'profile.c')

diff --git a/profile.c b/profile.c
index 62e39e93..15b33721 100644
--- a/profile.c
+++ b/profile.c
@@ -668,7 +668,7 @@ cleanup:
 		case Op_K_print_rec:
 			if (pc->opcode == Op_K_print_rec)
 				// instead of `print $0', just `print'
-				tmp = strdup("");
+				tmp = estrdup("", 0);
 			else if (pc->redir_type != 0) {
 				// Avoid turning printf("hello\n") into printf(("hello\n"))
 				NODE *n = pp_top();
@@ -678,7 +678,7 @@ cleanup:
 				    && n->pp_str[n->pp_len - 1] == ')') {
 					n = pp_pop();
 
-					tmp = strdup(n->pp_str);
+					tmp = estrdup(n->pp_str, strlen(n->pp_str));
 					pp_free(n);
 				} else
 					tmp = pp_list(pc->expr_count, "()", ", ");
-- 
cgit v1.2.3