X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fdata-io%2Fget.c;h=abfc62472a3b50e11bbf61bfaa5e9ac5c18acf23;hb=0553d00dca10c2d2beeffd88fd12120e43a01025;hp=22ae6feb601579f02e0ef96b78b5fc4c82e7b8e9;hpb=f4b7fda32c476d6b2b5c94d175448f912746e8db;p=pspp-builds.git

diff --git a/src/language/data-io/get.c b/src/language/data-io/get.c
index 22ae6feb..abfc6247 100644
--- a/src/language/data-io/get.c
+++ b/src/language/data-io/get.c
@@ -60,8 +60,7 @@ enum reader_command
     IMPORT_CMD
   };
 
-static void get_translate_case (const struct ccase *, struct ccase *,
-                                void *map_);
+static void get_translate_case (struct ccase *, struct ccase *, void *map_);
 static bool get_destroy_case_map (void *map_);
 
 /* Parses a GET or IMPORT command. */
@@ -143,11 +142,12 @@ parse_read_command (struct lexer *lexer, struct dataset *ds, enum reader_command
 }
 
 static void
-get_translate_case (const struct ccase *input, struct ccase *output,
+get_translate_case (struct ccase *input, struct ccase *output,
                     void *map_)
 {
   struct case_map *map = map_;
   case_map_execute (map, input, output);
+  case_destroy (input);
 }
 
 static bool