projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
case: Introduce new functions for numbers and substrings in cases.
[pspp]
/
src
/
language
/
control
/
loop.c
diff --git
a/src/language/control/loop.c
b/src/language/control/loop.c
index 765d21314793e0165e235ec7c9ae3a0917a6048f..156e647ea0e617ac16446a8c8a38d84814b47071 100644
(file)
--- a/
src/language/control/loop.c
+++ b/
src/language/control/loop.c
@@
-315,7
+315,7
@@
loop_trns_proc (void *loop_, struct ccase **c, casenumber case_num)
/* Even if the loop is never entered, set the index
variable to the initial value. */
*c = case_unshare (*c);
/* Even if the loop is never entered, set the index
variable to the initial value. */
*c = case_unshare (*c);
-
case_data_rw (*c, loop->index_var)->f
= loop->cur;
+
*case_num_rw (*c, loop->index_var)
= loop->cur;
/* Throw out pathological cases. */
if (!isfinite (loop->cur) || !isfinite (loop->by)
/* Throw out pathological cases. */
if (!isfinite (loop->cur) || !isfinite (loop->by)
@@
-374,7
+374,7
@@
end_loop_trns_proc (void *loop_, struct ccase **c, casenumber case_num UNUSED)
|| (loop->by < 0.0 && loop->cur < loop->last))
goto break_out;
*c = case_unshare (*c);
|| (loop->by < 0.0 && loop->cur < loop->last))
goto break_out;
*c = case_unshare (*c);
-
case_data_rw (*c, loop->index_var)->f
= loop->cur;
+
*case_num_rw (*c, loop->index_var)
= loop->cur;
}
if (loop->loop_condition != NULL
}
if (loop->loop_condition != NULL