dictionary: Get rid of case indexes.

[pspp] / src / data / por-file-writer.c

diff --git a/src/data/por-file-writer.c b/src/data/por-file-writer.c
index be35418ce7de9b7de7ed43688470ebe9f3c2a313..3d9b4b3fb3aed6f3b9483b4e2fee950516166214 100644 (file)
--- a/src/data/por-file-writer.c
+++ b/src/data/por-file-writer.c
@@ -130,7 +130,7 @@ pfm_open_writer (struct file_handle *fh, struct dictionary *dict,
       const struct variable *dv = dict_get_var (dict, i);
       struct pfm_var *pv = &w->vars[i];
       pv->width = MIN (var_get_width (dv), MAX_POR_WIDTH);
-      pv->case_index = var_get_case_index (dv);
+      pv->case_index = var_get_dict_index (dv);
     }
 
   w->digits = opts.digits;
@@ -350,8 +350,8 @@ write_variables (struct pfm_writer *w, struct dictionary *dict)
       buf_write (w, "7", 1);
       write_int (w, width);
       write_string (w, var_get_short_name (v, 0));
-      write_format (w, *var_get_print_format (v), width);
-      write_format (w, *var_get_write_format (v), width);
+      write_format (w, var_get_print_format (v), width);
+      write_format (w, var_get_write_format (v), width);
 
       /* Write missing values. */
       mv_copy (&mv, var_get_missing_values (v));