X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fmath%2Flinreg%2Flinreg.c;h=6bd450a1a9b3ecfe3833e0e11e6015ea43e83665;hb=2da08e801be698df268f35ac6e21cc8a345ba1fb;hp=3c086a98f22ce1868ac581e1cdc4bc359671483f;hpb=c17ea35a73b7a690a54c5c6a213de19f0376e74f;p=pspp-builds.git

diff --git a/src/math/linreg/linreg.c b/src/math/linreg/linreg.c
index 3c086a98..6bd450a1 100644
--- a/src/math/linreg/linreg.c
+++ b/src/math/linreg/linreg.c
@@ -1,5 +1,5 @@
 /* PSPP - a program for statistical analysis.
-   Copyright (C) 2005 Free Software Foundation, Inc. Written by Jason H. Stover.
+   Copyright (C) 2005 Free Software Foundation, Inc. 
 
    This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
@@ -184,10 +184,12 @@ pspp_linreg_cache_free (void *m)
       gsl_vector_free (c->indep_std);
       gsl_vector_free (c->ss_indeps);
       gsl_matrix_free (c->cov);
+      gsl_vector_free (c->ssx);
       for (i = 0; i < c->n_coeffs; i++)
 	{
 	  pspp_coeff_free (c->coeff[i]);
 	}
+      free (c->coeff);
       free (c);
     }
   return true;
@@ -203,7 +205,7 @@ pspp_linreg (const gsl_vector * Y, const gsl_matrix * X,
 	     const pspp_linreg_opts * opts, pspp_linreg_cache * cache)
 {
   int rc;
-  gsl_matrix *design;
+  gsl_matrix *design = NULL;
   gsl_matrix_view xtx;
   gsl_matrix_view xm;
   gsl_matrix_view xmxtx;