X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fq2c.c;h=5d188bbcedd1a04ca10b89d272aa45a5f8fbe693;hb=5156fa5a8323a16f6b4bbc8950221cdc1d0e023d;hp=0ffc79f0ea10d4b2356d6f8ce2cc6d3eb6bf9077;hpb=b321086267ad1014dc5d09886396cde30f094437;p=pspp-builds.git

diff --git a/src/q2c.c b/src/q2c.c
index 0ffc79f0..5d188bbc 100644
--- a/src/q2c.c
+++ b/src/q2c.c
@@ -2062,7 +2062,10 @@ dump_free (int persistent)
 	      dump (0, "free (p->s_%s);", st_lower (sbc->name));
 	      break;
 	    case SBC_DBL_LIST:
-	      dump (0, "subc_list_double_destroy(p->dl_%s);", st_lower (sbc->name));
+	      dump (0, "int i;");
+	      dump (1, "for(i = 0; i < MAXLISTS ; ++i)");
+	      dump (0, "subc_list_double_destroy(&p->dl_%s[i]);", st_lower (sbc->name));
+	      outdent();
 	      break;
 	    default:
 	      break;