Removed extra free

[pspp-builds.git] / lib / linreg / linreg.c

diff --git a/lib/linreg/linreg.c b/lib/linreg/linreg.c
index 0bc1f0ce4ca43ccb38c94ffb66124b669c3c4f63..1fe4a79e5784aff1868c09e6c3d1aa56463508df 100644 (file)
--- a/lib/linreg/linreg.c
+++ b/lib/linreg/linreg.c
@@ -112,11 +112,18 @@ pspp_linreg_cache_alloc (size_t n, size_t p)
 void
 pspp_linreg_cache_free (pspp_linreg_cache * c)
 {
+  int i;
+
   gsl_vector_free (c->indep_means);
   gsl_vector_free (c->indep_std);
   gsl_vector_free (c->ss_indeps);
   gsl_matrix_free (c->cov);
-  pspp_linreg_coeff_free (c->coeff);
+#if 0  
+  for (i = 1; i < c->n_coeffs; i++)
+    {
+      pspp_linreg_coeff_free (c->coeff + i);
+    }
+#endif
   free (c);
 }