[Pspp-cvs] pspp/src/language/stats regression.q

[Jason H Stover]

CVSROOT:        /sources/pspp
Module name:    pspp
Branch:         
Changes by:     Jason H Stover <address@hidden> 06/04/09 14:00:41

Modified files:
        src/language/stats: regression.q 

Log message:
        fixed predict argument list

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/pspp/pspp/src/language/stats/regression.q.diff?tr1=1.8&tr2=1.9&r1=text&r2=text

Patches:
Index: pspp/src/language/stats/regression.q
diff -u pspp/src/language/stats/regression.q:1.8 
pspp/src/language/stats/regression.q:1.9
--- pspp/src/language/stats/regression.q:1.8    Sat Apr  8 02:44:49 2006
+++ pspp/src/language/stats/regression.q        Sun Apr  9 14:00:41 2006
@@ -505,7 +505,6 @@
 subcommand_save (int save, pspp_linreg_cache *lc, const struct casefile *cf, 
int *is_missing)
 {
   int i;
-  int k;
   int case_num;
   double residual;
   const union value **vals;
@@ -513,6 +512,8 @@
   struct ccase c;
 
   assert (lc != NULL);
+  assert (is_missing != NULL);
+
   if (save)
     {
       vals = xnmalloc (n_variables, sizeof (*vals));
@@ -526,7 +527,8 @@
                {
                  vals[i] = case_data (&c, v_variables[i]->fv);
                }
-             residual = (*lc->predict) (v_variables, vals, lc, n_variables);
+             residual = (*lc->predict) ((const struct variable **) 
v_variables, 
+                                        (const union value **) vals, lc, 
n_variables);
            }
        }
       free (vals);