X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fvfm.c;h=90edfcd02694cc74aed682ad7ac8fccc04bedeea;hb=2e02472cf15ddb64c33a1477cf4cfbf3be2d0c95;hp=344f94b9a80224625fdfed08e9ed84fcb7dc9645;hpb=7dc203206d3f3172474a4ec0f4dcab5364f4ce26;p=pspp diff --git a/src/vfm.c b/src/vfm.c index 344f94b9a8..90edfcd026 100644 --- a/src/vfm.c +++ b/src/vfm.c @@ -14,8 +14,8 @@ You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software - Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA - 02111-1307, USA. */ + Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA + 02110-1301, USA. */ #include #include "vfm.h" @@ -584,7 +584,9 @@ const struct case_sink_class null_sink_class = struct ccase * lagged_case (int n_before) { - assert (n_before >= 1 && n_before <= n_lag); + assert (n_before >= 1 ); + assert (n_before <= n_lag); + if (n_before <= lag_count) { int index = lag_head - n_before; @@ -624,7 +626,7 @@ cancel_transformations (void) } n_trns = f_trns = 0; free (t_trns); - t_trns=NULL; + t_trns = NULL; m_trns = 0; } @@ -782,32 +784,9 @@ procedure_with_splits_callback (struct ccase *c, void *split_aux_) static int equal_splits (const struct ccase *a, const struct ccase *b) { - struct variable *const *split; - size_t split_cnt; - size_t i; - - split = dict_get_split_vars (default_dict); - split_cnt = dict_get_split_cnt (default_dict); - for (i = 0; i < split_cnt; i++) - { - struct variable *v = split[i]; - - switch (v->type) - { - case NUMERIC: - if (case_num (a, v->fv) != case_num (b, v->fv)) - return 0; - break; - case ALPHA: - if (memcmp (case_str (a, v->fv), case_str (b, v->fv), v->width)) - return 0; - break; - default: - assert (0); - } - } - - return 1; + return case_compare (a, b, + dict_get_split_vars (default_dict), + dict_get_split_cnt (default_dict)) == 0; } /* Dumps out the values of all the split variables for the case C. */