From 554a059e402fa05b3cdb0b59e2432c7471b6b514 Mon Sep 17 00:00:00 2001
From: Jason Stover <jhs@math.gcsu.edu>
Date: Sat, 21 Jan 2006 15:57:14 +0000
Subject: [PATCH] Cleaning up freeing of regression coefficients

---
 lib/linreg/coefficient.c | 1 -
 lib/linreg/linreg.c      | 7 +------
 2 files changed, 1 insertion(+), 7 deletions(-)

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);
 }
 
-- 
2.30.2