Free proper variable for var lists in q2c.

[pspp] / src / language / lexer / q2c.c

diff --git a/src/language/lexer/q2c.c b/src/language/lexer/q2c.c
index acf08db8f1d72ce61ea280e00a8fa8902343edcc..46255e34aa391b904c1d644ad268425e20e619ad 100644 (file)
--- 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));