X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fexpressions%2Fevaluate.c;h=9318f94b56c5b2f12500f5625fe755d6c34b71f3;hb=44326932c8227c64a87f7a92ef16ce83c2fba2d4;hp=471c411850d30ac01e5b274656a98d04564dfd93;hpb=480a0746507ce73d26f528b56dc3ed80195096e0;p=pspp-builds.git diff --git a/src/language/expressions/evaluate.c b/src/language/expressions/evaluate.c index 471c4118..9318f94b 100644 --- a/src/language/expressions/evaluate.c +++ b/src/language/expressions/evaluate.c @@ -1,5 +1,5 @@ /* PSPP - computes sample statistics. - Copyright (C) 1997-9, 2000, 2006 Free Software Foundation, Inc. + Copyright (C) 1997-9, 2000, 2006, 2007 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as @@ -155,13 +155,13 @@ cmd_debug_evaluate (struct lexer *lexer, struct dataset *dsother UNUSED) lex_error (lexer, _("expecting number or string")); goto done; } - - if ( ds == NULL ) + + if ( ds == NULL ) { - ds = create_dataset (); + ds = create_dataset (NULL, NULL, NULL); d = dataset_dict (ds); } - + old_value_cnt = dict_get_next_value_idx (d); v = dict_create_var (d, name, width); if (v == NULL) @@ -176,7 +176,7 @@ cmd_debug_evaluate (struct lexer *lexer, struct dataset *dsother UNUSED) case_create (c, dict_get_next_value_idx (d)); } else - case_resize (c, old_value_cnt, dict_get_next_value_idx (d)); + case_resize (c, dict_get_next_value_idx (d)); if (lex_is_number (lexer)) case_data_rw (c, v)->f = lex_tokval (lexer);