Cleaning up freeing of regression coefficients

diff --git a/lib/linreg/coefficient.c b/lib/linreg/coefficient.c
index 1645d2c2d365ce59e156ca7986784a7bf307355f..5b9266e2de696408d661135fdc8e832f8645e7d3 100644 (file)
--- a/lib/linreg/coefficient.c
+++ b/lib/linreg/coefficient.c
@@ -43,7 +43,6 @@ struct varinfo
 
 void pspp_linreg_coeff_free (struct pspp_linreg_coeff *c)
 {
-  free (c->v_info);
   free (c);
 }
 

diff --git a/lib/linreg/linreg.c b/lib/linreg/linreg.c
index 1fe4a79e5784aff1868c09e6c3d1aa56463508df..17833e57db0dd0bd877a395de00bfd5d8d6a3c0d 100644 (file)
--- a/lib/linreg/linreg.c
+++ b/lib/linreg/linreg.c
@@ -118,12 +118,7 @@ pspp_linreg_cache_free (pspp_linreg_cache * c)
   gsl_vector_free (c->indep_std);
   gsl_vector_free (c->ss_indeps);
   gsl_matrix_free (c->cov);
-#if 0  
-  for (i = 1; i < c->n_coeffs; i++)
-    {
-      pspp_linreg_coeff_free (c->coeff + i);
-    }
-#endif
+  pspp_linreg_coeff_free (c->coeff);
   free (c);
 }