X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fq2c.c;h=1361320491b25a614fb90bc13d5a9c12e89b9aa6;hb=d043fde2b737897e3372670afc47eb648c17624b;hp=5d188bbcedd1a04ca10b89d272aa45a5f8fbe693;hpb=eeb3352d718b0cd85afab3f7a7466fcac7791c1c;p=pspp

diff --git a/src/q2c.c b/src/q2c.c
index 5d188bbced..1361320491 100644
--- a/src/q2c.c
+++ b/src/q2c.c
@@ -1611,7 +1611,7 @@ dump_subcommand (const subcommand *sbc)
     {
       dump (0, "p->%sv_%s = parse_variable ();",
 	    st_lower (sbc->prefix), st_lower (sbc->name));
-      dump (1, "if (p->%sv_%s)",
+      dump (1, "if (!p->%sv_%s)",
 	    st_lower (sbc->prefix), st_lower (sbc->name));
       dump (0, "goto lossage;");
       outdent ();
@@ -2058,6 +2058,9 @@ dump_free (int persistent)
 	{
 	  switch (sbc->type) 
 	    {
+            case SBC_VARLIST:
+	      dump (0, "free (p->v_variables);");
+              break;
 	    case SBC_STRING:
 	      dump (0, "free (p->s_%s);", st_lower (sbc->name));
 	      break;