X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fmath%2Flevene.c;h=a325138b14517198eeb71e8204c60472a8ba26c3;hb=9105b67fe006fe41c044e3659325594a52d0c899;hp=f5ed0568f1721558204c63f230103ff3d5bd51b0;hpb=f43378497b8400e9c22a3485c534693dc1bc9554;p=pspp-builds.git

diff --git a/src/math/levene.c b/src/math/levene.c
index f5ed0568..a325138b 100644
--- a/src/math/levene.c
+++ b/src/math/levene.c
@@ -2,7 +2,6 @@
    Computes Levene test  statistic.
 
    Copyright (C) 2004 Free Software Foundation, Inc.
-   Written by John Darrington <john@darrington.wattle.id.au>
 
    This program is free software; you can redistribute it and/or
    modify it under the terms of the GNU General Public License as
@@ -66,13 +65,13 @@ struct levene_info
   struct t_test_proc **group_stats;
 
   /* The independent variable */
-  struct variable *v_indep; 
+  const struct variable *v_indep; 
 
   /* Number of dependent variables */
   size_t n_dep;
 
   /* The dependent variables */
-  struct variable  **v_dep;
+  const struct variable  **v_dep;
 
   /* Filter for missing values */
   struct casefilter *filter;
@@ -95,7 +94,8 @@ static void levene2_postcalc (void *);
 void  
 levene(const struct dictionary *dict, 
        const struct casefile *cf,
-       struct variable *v_indep, size_t n_dep, struct variable **v_dep,
+       const struct variable *v_indep, size_t n_dep, 
+       const struct variable **v_dep,
        struct casefilter *filter)
 {
   struct casereader *r;
@@ -160,7 +160,7 @@ levene_precalc (const struct levene_info *l)
 
   for(i = 0; i < l->n_dep ; ++i ) 
     {
-      struct variable *var = l->v_dep[i];
+      const struct variable *var = l->v_dep[i];
       struct group_proc *gp = group_proc_get (var);
       struct group_statistics *gs;
       struct hsh_iterator hi;
@@ -187,7 +187,7 @@ levene_calc (const struct dictionary *dict, const struct ccase *c,
 {
   size_t i;
   bool warn = false;
-  const union value *gv = case_data (c, l->v_indep->fv);
+  const union value *gv = case_data (c, l->v_indep);
   struct group_statistics key;
   double weight = dict_get_case_weight (dict, c, &warn); 
 
@@ -195,10 +195,10 @@ levene_calc (const struct dictionary *dict, const struct ccase *c,
 
   for (i = 0; i < l->n_dep; ++i) 
     {
-      struct variable *var = l->v_dep[i];
+      const struct variable *var = l->v_dep[i];
       struct group_proc *gp = group_proc_get (var);
       double levene_z;
-      const union value *v = case_data (c, var->fv);
+      const union value *v = case_data (c, var);
       struct group_statistics *gs;
 
       gs = hsh_find(gp->group_hash,(void *) &key );
@@ -255,7 +255,7 @@ levene2_precalc (struct levene_info *l)
       struct hsh_iterator hi;
       struct group_statistics *g;
 
-      struct variable *var = l->v_dep[v] ;
+      const struct variable *var = l->v_dep[v] ;
       struct hsh_table *hash = group_proc_get (var)->group_hash;
 
 
@@ -278,7 +278,7 @@ levene2_calc (const struct dictionary *dict, const struct ccase *c,
 
   double weight = dict_get_case_weight (dict, c, &warn); 
 
-  const union value *gv = case_data (c, l->v_indep->fv);
+  const union value *gv = case_data (c, l->v_indep);
   struct group_statistics key;
 
   key.id = *gv;
@@ -286,8 +286,8 @@ levene2_calc (const struct dictionary *dict, const struct ccase *c,
   for (i = 0; i < l->n_dep; ++i) 
     {
       double levene_z;
-      struct variable *var = l->v_dep[i] ;
-      const union value *v = case_data (c, var->fv);
+      const struct variable *var = l->v_dep[i] ;
+      const union value *v = case_data (c, var);
       struct group_statistics *gs;
 
       gs = hsh_find(group_proc_get (var)->group_hash,(void *) &key );
@@ -320,7 +320,7 @@ levene2_postcalc (void *_l)
       struct hsh_iterator hi;
       struct group_statistics *g;
 
-      struct variable *var = l->v_dep[v] ;
+      const struct variable *var = l->v_dep[v] ;
       struct group_proc *gp = group_proc_get (var);
       struct hsh_table *hash = gp->group_hash;