X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fmath%2Flinreg%2Flinreg.c;h=e3d02345f7776000d6c54fd210f9079b67fbbbea;hb=573068f2bdcd3f8796e9646668fed910a90f890b;hp=08d620b8c271d4a90290577dffe507365a3660a7;hpb=745a5487c9da077893a46d26d64e911246640a7b;p=pspp-builds.git

diff --git a/src/math/linreg/linreg.c b/src/math/linreg/linreg.c
index 08d620b8..e3d02345 100644
--- a/src/math/linreg/linreg.c
+++ b/src/math/linreg/linreg.c
@@ -305,6 +305,7 @@ pspp_linreg (const gsl_vector * Y, const gsl_matrix * X,
     }
   else
     {
+      gsl_multifit_linear_workspace *wk ;
       /*
          Use QR decomposition via GSL.
        */
@@ -321,8 +322,8 @@ pspp_linreg (const gsl_vector * Y, const gsl_matrix * X,
 	      gsl_matrix_set (design, j, i + 1, tmp);
 	    }
 	}
-      gsl_multifit_linear_workspace *wk =
-	gsl_multifit_linear_alloc (design->size1, design->size2);
+
+      wk = gsl_multifit_linear_alloc (design->size1, design->size2);
       rc = gsl_multifit_linear (design, Y, param_estimates,
 				cache->cov, &(cache->sse), wk);
       for (i = 0; i < cache->n_coeffs; i++)