X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=lib%2Flinreg%2Fsweep.c;h=536fb3b02c2215b96a70a1a244d1aaf21f30964d;hb=f5e80d2a183a5fd902cef45ce0299983fb941ebd;hp=62dda200701ceda43e4040e3128b1b8121b9e279;hpb=6e5736d55e61f5dca727428213a835998eeacead;p=pspp diff --git a/lib/linreg/sweep.c b/lib/linreg/sweep.c index 62dda20070..536fb3b02c 100644 --- a/lib/linreg/sweep.c +++ b/lib/linreg/sweep.c @@ -83,7 +83,7 @@ reg_sweep (gsl_matrix * A, int last_col) assert (last_col < A->size1); gsl_matrix_swap_rows (A, A->size1 - 1, last_col); gsl_matrix_swap_columns (A, A->size1 - 1 , last_col); - + B = gsl_matrix_alloc (A->size1, A->size2); for (k = 0; k < (A->size1 - 1); k++) {