X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fdictionary%2Fmodify-variables.c;h=1632f6ea0db7aecda785b929f72fd544af469b30;hb=84e4d346b557748b62d43158c1b50f655e357f9f;hp=fc91894eee2f14bf326a32a602016d9cc21d0529;hpb=dcf9b154cbcaa35c3d8459a201b77eec8bcb30bd;p=pspp diff --git a/src/language/dictionary/modify-variables.c b/src/language/dictionary/modify-variables.c index fc91894eee..1632f6ea0d 100644 --- a/src/language/dictionary/modify-variables.c +++ b/src/language/dictionary/modify-variables.c @@ -18,20 +18,25 @@ 02110-1301, USA. */ #include + #include -#include "message.h" -#include "array.h" -#include "alloc.h" -#include "bit-vector.h" -#include "command.h" -#include "dictionary.h" -#include "message.h" -#include "hash.h" -#include "lexer.h" -#include "misc.h" -#include "str.h" -#include "variable.h" -#include "procedure.h" + +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include #include "gettext.h" #define _(msgid) gettext (msgid) @@ -87,12 +92,9 @@ cmd_modify_vars (void) size_t i; - if (temporary != 0) - { - msg (SE, _("MODIFY VARS may not be used after TEMPORARY. " - "Temporary transformations will be made permanent.")); - cancel_temporary (); - } + if (proc_make_temporary_transformations_permanent ()) + msg (SE, _("MODIFY VARS may not be used after TEMPORARY. " + "Temporary transformations will be made permanent.")); vm.reorder_vars = NULL; vm.reorder_cnt = 0; @@ -258,7 +260,7 @@ cmd_modify_vars (void) compare_variables_given_ordering, &forward_positional_ordering) != drop_cnt) - assert (0); + NOT_REACHED (); free (keep_vars); free (all_vars); @@ -419,7 +421,7 @@ validate_var_modification (const struct dictionary *d, keep_vars, compare_variables_given_ordering, &forward_positional_ordering) != keep_cnt) - assert (0); + NOT_REACHED (); /* Copy variables into var_renaming array. */ var_renaming = xnmalloc (keep_cnt, sizeof *var_renaming); @@ -513,7 +515,7 @@ rearrange_dict (struct dictionary *d, const struct var_modification *vm) /* Do renaming. */ if (dict_rename_vars (d, rename_vars, rename_new_names, rename_cnt, NULL) == 0) - assert (0); + NOT_REACHED (); /* Clean up. */ for (i = 0; i < vm->rename_cnt; i++)