X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fdata%2Fcasewriter.c;h=7631d776d3d2ac59cf336eccde48446aa8832b80;hb=e33304f11253c71db3c727d5a51d339efdaf75d7;hp=f7760eca04a5ae5d1b78bf45c46c92676b63a0c7;hpb=5c3291dc396b795696e94f47780308fd7ace6fc4;p=pspp-builds.git

diff --git a/src/data/casewriter.c b/src/data/casewriter.c
index f7760eca..7631d776 100644
--- a/src/data/casewriter.c
+++ b/src/data/casewriter.c
@@ -99,6 +99,8 @@ casewriter_make_reader (struct casewriter *writer)
 {
   struct casereader *reader = writer->class->convert_to_reader (writer, writer->aux);
   taint_propagate (writer->taint, casereader_get_taint (reader));
+
+  caseproto_unref (writer->proto);
   taint_destroy (writer->taint);
   free (writer);
   return reader;