Constness

diff --git a/src/language/stats/glm.q b/src/language/stats/glm.q
index c015afa7ec5784ab5a46c8006b560ce28040f750..fd48b735e55b83a1f0c2908426ec7c4017306794 100644 (file)
--- a/src/language/stats/glm.q
+++ b/src/language/stats/glm.q
@@ -257,7 +257,7 @@ run_glm (struct casereader *input,
   int n_indep = 0;
   struct ccase c;
   const struct variable **indep_vars;
-  struct variable **all_vars;
+  const struct variable **all_vars;
   struct design_matrix *X;
   struct moments_var **mom;
   struct casereader *reader;

diff --git a/src/math/coefficient.c b/src/math/coefficient.c
index 4f987612ff07d727e60d750b3395d19a3a3e0ac2..5872b576fabfc82227aac28dae759ec43ded96ac 100644 (file)
--- a/src/math/coefficient.c
+++ b/src/math/coefficient.c
@@ -153,7 +153,7 @@ pspp_coeff_get_var (struct pspp_coeff *coef, int i)
   categorical, and has more than one coefficient, use the VAL to find
   its coefficient.
  */
-const struct pspp_coeff *
+struct pspp_coeff *
 pspp_coeff_var_to_coeff (const struct variable *v, struct pspp_coeff **coefs, 
                         size_t n_coef, const union value *val)
 {

diff --git a/src/math/coefficient.h b/src/math/coefficient.h
index dda2ae30cf292cb5008f0bf7e14a8440daeaf76e..705c1e0e488f3927483946b62f37815c144cc599 100644 (file)
--- a/src/math/coefficient.h
+++ b/src/math/coefficient.h
@@ -101,7 +101,7 @@ int pspp_coeff_get_n_vars (struct pspp_coeff *);
   coefficient found. Note that in this case, the result will depend on
   the order of COEFS.
  */
-const struct pspp_coeff *
+struct pspp_coeff *
 pspp_coeff_var_to_coeff (const struct variable *, struct pspp_coeff **, size_t, const union value *);
 
 /*

diff --git a/src/math/covariance-matrix.c b/src/math/covariance-matrix.c
index 38ddf3061fad1f5744640ba4cdaa39998a6031ea..5414379119d1cecba94bf342c877209f58fc9b2f 100644 (file)
--- a/src/math/covariance-matrix.c
+++ b/src/math/covariance-matrix.c
@@ -66,7 +66,7 @@ column_iterate (struct design_matrix *cov, const struct variable *v,
   size_t i;
   double y;
   double tmp;
-  union value *tmp_val;
+  const union value *tmp_val;
 
   col = design_matrix_var_to_column (cov, v);  
   for (i = 0; i < cat_get_n_categories (v) - 1; i++)
@@ -96,7 +96,7 @@ void covariance_pass_two (struct design_matrix *cov, double mean1, double mean2,
   size_t col;
   size_t i;
   double x;
-  union value *tmp_val;
+  const union value *tmp_val;
 
   if (var_is_alpha (v1))
     {

diff --git a/src/math/linreg.c b/src/math/linreg.c
index 8ac19a6b91945366c5d1cb0b56ec395df69907aa..b3ab58754fd4e5471dc8f9201beca0cae020445a 100644 (file)
--- a/src/math/linreg.c
+++ b/src/math/linreg.c
@@ -554,7 +554,7 @@ pspp_linreg_residual (const struct variable **predictors,
   Which coefficient is associated with V? The VAL argument is relevant
   only to categorical variables.
  */
-const struct pspp_coeff *
+struct pspp_coeff *
 pspp_linreg_get_coeff (const pspp_linreg_cache * c,
                       const struct variable *v, const union value *val)
 {

diff --git a/src/math/linreg.h b/src/math/linreg.h
index ff37a84fe815931962aaa9ff46add55e0a394353..3a0b3694d65838901b8e8bd6135376c2f3173ee7 100644 (file)
--- a/src/math/linreg.h
+++ b/src/math/linreg.h
@@ -200,7 +200,7 @@ pspp_linreg_residual (const struct variable **, const union value **,
  */
 int pspp_linreg_get_vars (const void *, const struct variable **);
 
-const struct pspp_coeff *pspp_linreg_get_coeff (const pspp_linreg_cache
+struct pspp_coeff *pspp_linreg_get_coeff (const pspp_linreg_cache
                                                       *,
                                                       const struct variable
                                                       *,