From 85c0d5edb781c9f31b79e48452b1ca68643f41de Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Fri, 16 Jul 2010 14:40:49 +0300
Subject: Move to gawk-3.1.4.

---
 node.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'node.c')

diff --git a/node.c b/node.c
index 05b258b5..4ef76e32 100644
--- a/node.c
+++ b/node.c
@@ -3,7 +3,7 @@
  */
 
 /* 
- * Copyright (C) 1986, 1988, 1989, 1991-2001, 2003 the Free Software Foundation, Inc.
+ * Copyright (C) 1986, 1988, 1989, 1991-2001, 2003, 2004 the Free Software Foundation, Inc.
  * 
  * This file is part of GAWK, the GNU implementation of the
  * AWK Programming Language.
@@ -187,6 +187,8 @@ format_val(const char *format, int index, register NODE *s)
 		s->flags = oflags;
 		s->stfmt = (char) index;
 		s->stlen = r->stlen;
+		if ((s->flags & STRCUR) != 0)
+			free(s->stptr);
 		s->stptr = r->stptr;
 		freenode(r);		/* Do not free_temp(r)!  We want */
 		freenode(dummy);	/* to keep s->stptr == r->stpr.  */
-- 
cgit v1.2.3