From: Jason Stover <jhs@math.gcsu.edu>
Date: Sat, 21 Jan 2006 15:57:14 +0000 (+0000)
Subject: Cleaning up freeing of regression coefficients
X-Git-Tag: v0.6.0~1088
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=554a059e402fa05b3cdb0b59e2432c7471b6b514;p=pspp-builds.git

Cleaning up freeing of regression coefficients
---

diff --git a/lib/linreg/coefficient.c b/lib/linreg/coefficient.c
index 1645d2c2..5b9266e2 100644
--- 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 1fe4a79e..17833e57 100644
--- 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);
 }