projects
/
pspp-builds.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Continue reforming procedure execution. In this phase, get rid of
[pspp-builds.git]
/
src
/
language
/
data-io
/
matrix-data.c
diff --git
a/src/language/data-io/matrix-data.c
b/src/language/data-io/matrix-data.c
index eb2d226f29341bbe4933f3219f8ca005c98bd941..ff008caa412c60532cae4b5e363d93f703bf616c 100644
(file)
--- a/
src/language/data-io/matrix-data.c
+++ b/
src/language/data-io/matrix-data.c
@@
-972,7
+972,8
@@
read_matrices_without_rowtype (struct matrix_data_pgm *mx)
nr.split_values = xnmalloc (dict_get_split_cnt (default_dict),
sizeof *nr.split_values);
nr.split_values = xnmalloc (dict_get_split_cnt (default_dict),
sizeof *nr.split_values);
- vfm_source = create_case_source (&matrix_data_without_rowtype_source_class, &nr);
+ proc_set_source (create_case_source (
+ &matrix_data_without_rowtype_source_class, &nr));
ok = procedure (NULL, NULL);
ok = procedure (NULL, NULL);
@@
-1512,8
+1513,8
@@
read_matrices_with_rowtype (struct matrix_data_pgm *mx)
wr.current = NULL;
mx->cells = 0;
wr.current = NULL;
mx->cells = 0;
-
vfm_source =
create_case_source (&matrix_data_with_rowtype_source_class,
-
&wr
);
+
proc_set_source (
create_case_source (&matrix_data_with_rowtype_source_class,
+
&wr)
);
ok = procedure (NULL, NULL);
free (wr.split_values);
ok = procedure (NULL, NULL);
free (wr.split_values);