From 12bff814007d0cde8d0b08eaaf0bcfd385c668ac Mon Sep 17 00:00:00 2001 From: "Arnold D. Robbins" Date: Fri, 1 Apr 2022 16:04:03 +0300 Subject: Small fixes from the persistent-gawk team. --- ChangeLog | 6 ++++++ extension/ChangeLog | 6 ++++++ extension/rwarray.c | 2 +- profile.c | 4 ++-- 4 files changed, 15 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 089db59a..971251ec 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2022-04-01 Arnold D. Robbins + + Small fix from the persistent-gawk guys. + + * profile.c (pprint): Use estrdup instead of strdup. + 2022-03-27 Arnold D. Robbins Allow nested indirect function calls. Thanks to diff --git a/extension/ChangeLog b/extension/ChangeLog index 69896748..927d6b15 100644 --- a/extension/ChangeLog +++ b/extension/ChangeLog @@ -1,3 +1,9 @@ +2022-04-01 Arnold D. Robbins + + Small fix from the persistent-gawk guys. + + * rwarray.c (read_number): Fix typo in case MPFR isn't available. + 2022-02-22 Arnold D. Robbins Fix resource links found by Coverity. Thanks to diff --git a/extension/rwarray.c b/extension/rwarray.c index 59d6b0f7..e8bc2276 100644 --- a/extension/rwarray.c +++ b/extension/rwarray.c @@ -627,7 +627,7 @@ read_number(FILE *fp, awk_value_t *value, uint32_t code) value = make_number_mpfr(& mpfr_val, value); } #else - fatal(ext_id(_("rwarray extension: GMP/MPFR value in file but compiled without GMP/MPFR support.")); + fatal(ext_id, _("rwarray extension: GMP/MPFR value in file but compiled without GMP/MPFR support.")); #endif } 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