From 12857707435f1d4bf9adf33b6fbfd57ff91529a7 Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Fri, 9 May 2014 11:42:52 +0300
Subject: Fix memory leak in do_eval.

---
 awkgram.c | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'awkgram.c')

diff --git a/awkgram.c b/awkgram.c
index 80d6ea05..7d444fb8 100644
--- a/awkgram.c
+++ b/awkgram.c
@@ -4672,6 +4672,15 @@ parse_program(INSTRUCTION **pcode)
 	return (ret || errcount);
 }
 
+/* free_srcfile --- free a SRCFILE struct */
+
+void
+free_srcfile(SRCFILE *thisfile)
+{
+	efree(thisfile->src);
+	efree(thisfile);
+}
+
 /* do_add_srcfile --- add one item to srcfiles */
 
 static SRCFILE *
-- 
cgit v1.2.3