projects
/
pspp-builds.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixed bug reporting the significance of paired value t-test.
[pspp-builds.git]
/
src
/
language
/
control
/
loop.c
diff --git
a/src/language/control/loop.c
b/src/language/control/loop.c
index 20cf69e5d9ce2abbeb14daa126909a57efb2eb32..40a33c11bbafc451adddb40f9529356ed12c6776 100644
(file)
--- a/
src/language/control/loop.c
+++ b/
src/language/control/loop.c
@@
-17,6
+17,7
@@
#include <config.h>
#include "control-stack.h"
#include <config.h>
#include "control-stack.h"
+
#include <data/case.h>
#include <data/dictionary.h>
#include <data/procedure.h>
#include <data/case.h>
#include <data/dictionary.h>
#include <data/procedure.h>
@@
-180,7
+181,7
@@
close_loop (void *loop_)
&& loop->index_var == NULL
&& loop->loop_condition == NULL
&& loop->end_loop_condition == NULL)
&& loop->index_var == NULL
&& loop->loop_condition == NULL
&& loop->end_loop_condition == NULL)
- loop->max_pass_count = get_mxloops ();
+ loop->max_pass_count =
settings_
get_mxloops ();
}
/* Parses an IF clause for LOOP or END LOOP and stores the
}
/* Parses an IF clause for LOOP or END LOOP and stores the
@@
-320,7
+321,8
@@
loop_trns_proc (void *loop_, struct ccase *c, casenumber case_num)
case_data_rw (c, loop->index_var)->f = loop->cur;
/* Throw out pathological cases. */
case_data_rw (c, loop->index_var)->f = loop->cur;
/* Throw out pathological cases. */
- if (!finite (loop->cur) || !finite (loop->by) || !finite (loop->last)
+ if (!isfinite (loop->cur) || !isfinite (loop->by)
+ || !isfinite (loop->last)
|| loop->by == 0.0
|| (loop->by > 0.0 && loop->cur > loop->last)
|| (loop->by < 0.0 && loop->cur < loop->last))
|| loop->by == 0.0
|| (loop->by > 0.0 && loop->cur > loop->last)
|| (loop->by < 0.0 && loop->cur < loop->last))