X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fmath%2Fcovariance.c;h=61f54f50752704e7e9717378574930f3a01b4752;hb=8f69116a2c31b8aed0527e225c368b3466da6c8d;hp=d03f6ad07a3039955047a687d7c9115cb99178c1;hpb=930138c8279976294019300966e1fb842173f762;p=pspp

diff --git a/src/math/covariance.c b/src/math/covariance.c
index d03f6ad07a..61f54f5075 100644
--- a/src/math/covariance.c
+++ b/src/math/covariance.c
@@ -267,6 +267,7 @@ get_val (const struct covariance *cov, int i, const struct ccase *c)
   return categoricals_get_binary_by_subscript (cov->categoricals, i - cov->n_vars, c);
 }
 
+#if 0
 void
 dump_matrix (const gsl_matrix *m)
 {
@@ -279,6 +280,7 @@ dump_matrix (const gsl_matrix *m)
       printf ("\n");
     }
 }
+#endif
 
 /* Call this function for every case in the data set */
 void
@@ -643,7 +645,6 @@ static const gsl_matrix *
 covariance_calculate_single_pass_unnormalized (struct covariance *cov)
 {
   size_t i, j;
-  size_t m;
 
   for (i = 0 ; i < cov->dim; ++i)
     {