Remove UNUSED attributes where they were inappropriate.

[pspp] / src / language / stats / t-test-parser.c

diff --git a/src/language/stats/t-test-parser.c b/src/language/stats/t-test-parser.c
index 7af0dfc9c606b24f72e8c5be5d44327732f78db2..26fc7ba56cb7307fc37c32b226fdbc12550c8cb0 100644 (file)
--- a/src/language/stats/t-test-parser.c
+++ b/src/language/stats/t-test-parser.c
@@ -44,10 +44,10 @@ cmd_t_test (struct lexer *lexer, struct dataset *ds)
 
   /* Variables pertaining to the paired mode */
   const struct variable **v1 = NULL;
-  size_t n_v1;
+  size_t n_v1 = 0;
   const struct variable **v2 = NULL;
-  size_t n_v2;
-         
+  size_t n_v2 = 0;
+
   size_t n_pairs = 0;
   vp *pairs = NULL;
 
@@ -94,7 +94,7 @@ cmd_t_test (struct lexer *lexer, struct dataset *ds)
 
          if (NULL == (gvar = parse_variable (lexer, dict)))
            goto parse_failed;
-      
+
          if (lex_match (lexer, T_LPAREN))
            {
 
@@ -180,7 +180,7 @@ cmd_t_test (struct lexer *lexer, struct dataset *ds)
              n_pairs = n_v1;
            else
              n_pairs = n_v1 * n_v2;
-         
+
            pairs = xcalloc (n_pairs, sizeof *pairs);
 
            if ( with)
@@ -193,7 +193,7 @@ cmd_t_test (struct lexer *lexer, struct dataset *ds)
                        vp *pair = &pairs[i];
                        (*pair)[0] = v1[i];
                        (*pair)[1] = v2[i];
-                     } 
+                     }
                  }
                else
                  {
@@ -286,7 +286,7 @@ cmd_t_test (struct lexer *lexer, struct dataset *ds)
                  goto parse_failed;
              }
        }
-      else 
+      else
        {
          lex_error (lexer, NULL);
          goto parse_failed;
@@ -367,12 +367,17 @@ cmd_t_test (struct lexer *lexer, struct dataset *ds)
   free (pairs);
   free (v1);
   free (v2);
-
   free (tt.vars);
 
   return ok ? CMD_SUCCESS : CMD_FAILURE;
 
  parse_failed:
+
+  free (pairs);
+  free (v1);
+  free (v2);
+  free (tt.vars);
+
   return CMD_FAILURE;
 }