X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=lib%2Flinreg%2Fsweep.c;h=b72d24a7edfebfba71201b28a34d13a374c08804;hb=ca0a72e321421d02a1fd6df943425eff4bd1a257;hp=7d7dfc917fb3d846bdb29d7cc34564a8ea06b1d5;hpb=f338eb59ae54d23708eaf2ffa009239807794653;p=pspp-builds.git

diff --git a/lib/linreg/sweep.c b/lib/linreg/sweep.c
index 7d7dfc91..b72d24a7 100644
--- a/lib/linreg/sweep.c
+++ b/lib/linreg/sweep.c
@@ -88,7 +88,7 @@ reg_sweep (gsl_matrix * A, int last_col)
 	    {
 	      ordered_cols[i] = i;
 	    }
-	  for (i = last_col + 1; i < A->size1 - 1; i++)
+	  for (i = last_col + 1; i < A->size1; i++)
 	    {
 	      ordered_cols[i - 1] = i;
 	    }
@@ -169,8 +169,8 @@ reg_sweep (gsl_matrix * A, int last_col)
 		  }
 	    }
 	  gsl_matrix_free (B);
-	  return GSL_SUCCESS;
 	  free (ordered_cols);
+	  return GSL_SUCCESS;
 	}
       return GSL_ENOTSQR;
     }