From: Jason H Stover <jhs@math.gcsu.edu>
Date: Fri, 20 Feb 2009 21:20:24 +0000 (-0500)
Subject: covariance-matrix.c (covariance_matrix_init): pass pointer to
X-Git-Tag: v0.7.3~297
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=fc6ad15503e6318bfe92c29c884f7350947e21c1;p=pspp-builds.git

covariance-matrix.c (covariance_matrix_init): pass pointer to
result->n_variables instead of stack variable n_variables.

covariance-matrix.c (covariance_hsh_create): Accept pointer to number
of variables instead of size_t.
---

diff --git a/src/math/covariance-matrix.c b/src/math/covariance-matrix.c
index e1b612af..88b85051 100644
--- a/src/math/covariance-matrix.c
+++ b/src/math/covariance-matrix.c
@@ -71,7 +71,7 @@ struct covariance_matrix
 
 
 
-static struct hsh_table *covariance_hsh_create (size_t);
+static struct hsh_table *covariance_hsh_create (size_t *);
 static hsh_hash_func covariance_accumulator_hash;
 static unsigned int hash_numeric_alpha (const struct variable *,
 					const struct variable *,
@@ -114,7 +114,8 @@ covariance_matrix_init (size_t n_variables,
 
   result = xmalloc (sizeof (*result));
   result->cov = NULL;
-  result->ca = covariance_hsh_create (n_variables);
+  result->n_variables = n_variables;
+  result->ca = covariance_hsh_create (&result->n_variables);
   result->m = NULL;
   result->m1 = NULL;
   result->missing_handling = missing_handling;
@@ -140,7 +141,7 @@ covariance_matrix_init (size_t n_variables,
 	}
     }
   result->v_variables = v_variables;
-  result->n_variables = n_variables;
+
   result->n_pass = n_pass;
 
   return result;
@@ -369,11 +370,11 @@ covariance_accumulator_hash (const void *h, const void *aux)
   in the data.
  */
 static struct hsh_table *
-covariance_hsh_create (size_t n_vars)
+covariance_hsh_create (size_t *n_vars)
 {
-  return hsh_create (n_vars * n_vars, covariance_accumulator_compare,
+  return hsh_create (*n_vars * *n_vars, covariance_accumulator_compare,
 		     covariance_accumulator_hash, covariance_accumulator_free,
-		     &n_vars);
+		     n_vars);
 }
 
 static void
@@ -555,6 +556,7 @@ update_hash_entry (struct hsh_table *c,
   ca->sum2 = update_sum (ca->v2, ca->val2, iv_f2);
   ca->ssize = 1.0;
   new_entry = hsh_insert (c, ca);
+
   if (new_entry != NULL)
     {
       new_entry->dot_product += ca->dot_product;
@@ -777,6 +779,7 @@ covariance_matrix_insert (struct design_matrix *cov,
 	  covariance_matrix_insert (cov, v2, v1, val2, val1, product);
 	}
     }
+
   gsl_matrix_set (cov->m, row, col, product);
 }