From: Ben Pfaff <blp@gnu.org>
Date: Fri, 10 Mar 2006 16:30:34 +0000 (+0000)
Subject: Free proper variable for var lists in q2c.
X-Git-Tag: v0.6.0~1049
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c59b9819031877e1837b1294bb23671bfde9b433;p=pspp-builds.git

Free proper variable for var lists in q2c.
---

diff --git a/src/language/lexer/ChangeLog b/src/language/lexer/ChangeLog
index 4a96aeb9..65198388 100644
--- a/src/language/lexer/ChangeLog
+++ b/src/language/lexer/ChangeLog
@@ -1,3 +1,9 @@
+Fri Mar 10 08:29:25 2006  Ben Pfaff  <blp@gnu.org>
+
+	* q2c.c: (dump_free) Free proper member for var list, instead of
+	hard-coding to v_variables.  Thanks to Jason Stover for reporting
+	this bug.
+
 Thu Mar  2 08:40:33 WST 2006 John Darrington <john@darrington.wattle.id.au>
 	
 	* Moved files from src directory
diff --git a/src/language/lexer/q2c.c b/src/language/lexer/q2c.c
index acf08db8..46255e34 100644
--- a/src/language/lexer/q2c.c
+++ b/src/language/lexer/q2c.c
@@ -1942,7 +1942,7 @@ dump_free (int persistent)
 	  switch (sbc->type) 
 	    {
             case SBC_VARLIST:
-	      dump (0, "free (p->v_variables);");
+	      dump (0, "free (p->v_%s);", st_lower (sbc->name));
               break;
 	    case SBC_STRING:
 	      dump (0, "free (p->s_%s);", st_lower (sbc->name));