From: John Darrington <john@darrington.wattle.id.au>
Date: Sun, 15 Jul 2012 12:59:30 +0000 (+0200)
Subject: GET DATA: Fix memory leak
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e4a9704334c09059ac2e2a8262b2089a2cfa493c;p=pspp

GET DATA: Fix memory leak
---

diff --git a/src/language/data-io/get-data.c b/src/language/data-io/get-data.c
index 10d59aa374..789300015e 100644
--- a/src/language/data-io/get-data.c
+++ b/src/language/data-io/get-data.c
@@ -65,10 +65,12 @@ cmd_get_data (struct lexer *lexer, struct dataset *ds)
   tok = strdup (lex_tokcstr (lexer));
   if (lex_match_id (lexer, "TXT"))
     {
+      free (tok);
       return parse_get_txt (lexer, ds);
     }
   else if (lex_match_id (lexer, "PSQL"))
     {
+      free (tok);
       return parse_get_psql (lexer, ds);
     }
   else if (lex_match_id (lexer, "GNM") ||