File _service:tar_scm:backport-Fix-a-memory-leak.patch of Package gawk

File _service:tar_scm:backport-Fix-a-memory-leak.patch of Package gawk (Revision 74866e355cd2db5c58e9d1c367337a6d)

Currently displaying revision 74866e355cd2db5c58e9d1c367337a6d , Show latest

From bc8957f4f5e1aafd00c82b52f4c82997b7cfc183 Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Fri, 30 Sep 2022 12:59:47 +0300
Subject: Fix a memory leak.

Reference:https://git.savannah.gnu.org/cgit/gawk.git/patch/?id=bc8957f4f5e1aafd00c82b52f4c82997b7cfc183
Conflict:tailoring commit on ChangeLog
---
 interpret.h | 3 +++
 1 files changed, 3 insertions(+)

diff --git a/interpret.h b/interpret.h
index fde02d2..f703080 100644
--- a/interpret.h
+++ b/interpret.h
@@ -217,6 +217,7 @@ uninitialized_scalar:
 					m->type = Node_var;
 					m->var_value = dupnode(Nnull_string);
 				}
+
 				if (do_lint)
 					lintwarn(isparam ?
 						_("reference to uninitialized argument `%s'") :
@@ -235,6 +236,7 @@ uninitialized_scalar:
 					m->type = Node_var;
 					m->var_value = dupnode(Nnull_string);
 				}
+
 				if (do_lint)
 					lintwarn(isparam ?
 						_("reference to uninitialized argument `%s'") :
@@ -242,6 +244,7 @@ uninitialized_scalar:
 								save_symbol->vname);
 				// set up local param by value
 				if (op != Op_push_arg_untyped) {
+					DEREF(m);
 					m = dupnode(Nnull_string);
 				}
 
--