X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fxforms%2Fcompute.c;h=8e0ce85d61e08ddfe121ba3682eb95cfddea748a;hb=2c4b104df57f2e8b5ed2afa50819294aaac4aa6c;hp=aa81729827bc35046bc5a129560a541efa125c83;hpb=051724c1769c04a715f00f22f75c4a810f5bff11;p=pspp

diff --git a/src/language/xforms/compute.c b/src/language/xforms/compute.c
index aa81729827..8e0ce85d61 100644
--- a/src/language/xforms/compute.c
+++ b/src/language/xforms/compute.c
@@ -133,7 +133,7 @@ compute_num (void *compute_, struct ccase **c, casenumber case_num)
       || expr_evaluate_num (compute->test, *c, case_num) == 1.0)
     {
       *c = case_unshare (*c);
-      case_data_rw (*c, compute->variable)->f
+      *case_num_rw (*c, compute->variable)
         = expr_evaluate_num (compute->rvalue, *c, case_num);
     }
 
@@ -170,7 +170,7 @@ compute_num_vec (void *compute_, struct ccase **c, casenumber case_num)
         }
 
       *c = case_unshare (*c);
-      case_data_rw (*c, vector_get_var (compute->vector, rindx - 1))->f
+      *case_num_rw (*c, vector_get_var (compute->vector, rindx - 1))
         = expr_evaluate_num (compute->rvalue, *c, case_num);
     }