First phase of making SORT CASES stable (PR 12035).

[pspp] / src / data-list.c

diff --git a/src/data-list.c b/src/data-list.c
index 9d935609f41d09c5136f01045225642188b314e9..4d7a315d96b83a0f729be70ba58d1a462c3012c8 100644 (file)
--- a/src/data-list.c
+++ b/src/data-list.c
@@ -278,8 +278,7 @@ cmd_data_list (void)
       add_transformation (&new_pgm->h);
     }
   else 
-    vfm_source = create_case_source (&data_list_source_class,
-                                     default_dict, dls);
+    vfm_source = create_case_source (&data_list_source_class, dls);
 
   return CMD_SUCCESS;
 
@@ -1113,7 +1112,7 @@ read_from_data_list_fixed (const struct data_list_pgm *dls,
          data_in_finite_line (&di, ls_c_str (&line), ls_length (&line),
                                var_spec->fc, var_spec->lc);
          di.v = case_data_rw (c, var_spec->fv);
-         di.flags = 0;
+         di.flags = DI_IMPLIED_DECIMALS;
          di.f1 = var_spec->fc;
          di.format = var_spec->input;