Partial fix for regression vs. splits issue

[pspp] / src / math / linreg.c

diff --git a/src/math/linreg.c b/src/math/linreg.c
index 92617aeadff30b091ad41a2e1c8f88cf4ce1986d..be43735785b4d2aad74595c6450e19f352fbb3f2 100644 (file)
--- a/src/math/linreg.c
+++ b/src/math/linreg.c
@@ -100,13 +100,13 @@ linreg_alloc (const struct variable *depvar, const struct variable **indep_vars,
      Default settings.
    */
   c->method = LINREG_SWEEP;
-  c->pred = NULL;
-  c->resid = NULL;
 
   c->refcnt = 1;
+
   return c;
 }
 
+
 void
 linreg_ref (linreg *c)
 {
@@ -116,7 +116,7 @@ linreg_ref (linreg *c)
 void
 linreg_unref (linreg *c)
 {
-  if (c && --c->refcnt == 0)
+  if (--c->refcnt == 0)
     {
       gsl_vector_free (c->indep_means);
       gsl_vector_free (c->indep_std);